Metrics for math.sqrt on complex, real part

start0.0ms (0%)

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

analyze108.0ms (1.9%)

Memory

-15.4MiB live, 119.2MiB allocated; 20ms 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.5s (26.8%)

Memory

46.4MiB live, 1 707.6MiB allocated; 238ms collecting garbage

Samples

555.0ms	6 206×	0	valid
204.0ms	799×	1	valid
201.0ms	810×	2	valid
160.0ms	441×	3	valid

Precisions

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

ival-hypot: 282.0ms (40.3% of total)

ival-mult: 155.0ms (22.2% of total)

ival-add: 103.0ms (14.7% of total)

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

adjust: 57.0ms (8.1% of total)

exact: 8.0ms (1.1% of total)

ival-true: 7.0ms (1% of total)

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

Bogosity

explain285.0ms (5%)

Memory

-21.8MiB live, 210.0MiB allocated; 32ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
141	-	1	(1.3214305562856733e-161 4.252312297685482e-188)	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`
32	-	0	-	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
31	-	0	-	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
0	-	0	-	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
0	-	0	-	`(*.f64 re re)`
0	-	0	-	`im`
0	-	0	-	`(+.f64 (.f64 re re) (.f64 im im))`
0	-	0	-	`#s(literal 2 binary64)`
0	-	0	-	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
0	-	0	-	`re`
0	-	0	-	`#s(literal 1/2 binary64)`
0	-	0	-	`(*.f64 im im)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	oflow-rescue	124	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	124
↳	`(*.f64 re re)`	overflow	71
↳	`(*.f64 im im)`	overflow	68
`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	16
↳	`(*.f64 im im)`	underflow	54
↳	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	underflow	5
↳	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	underflow	37
↳	`(*.f64 re re)`	underflow	64
↳	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	underflow	37
`+.f64`	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	cancellation	31	0
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	uflow-rescue	16	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	16
↳	`(*.f64 re re)`	underflow	64
↳	`(*.f64 im im)`	underflow	54

Confusion

	Predicted +	Predicted -
+	169	1
-	0	86

Precision

1.0

Recall

0.9941176470588236

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	169	0	1
-	0	0	86

Precision?

1.0

Recall?

0.9941176470588236

Freqs

test

number	freq
0	87
1	135
2	34

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

55.0ms	38×	3	valid
35.0ms	376×	0	valid
13.0ms	46×	2	valid
10.0ms	52×	1	valid

Compiler

Compiled 169 to 40 computations (76.3% saved)

Precisions

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

ival-hypot: 56.0ms (61% of total)

ival-mult: 16.0ms (17.4% of total)

adjust: 7.0ms (7.6% of total)

ival-add: 7.0ms (7.6% of total)

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

exact: 1.0ms (1.1% of total)

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

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

preprocess237.0ms (4.2%)

Memory

21.6MiB live, 259.1MiB allocated; 43ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	30	77
1	104	77
2	244	75
3	438	75
4	925	75
5	3044	75
6	6590	75
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.0MiB live, 0.0MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 2 computations (-∞% saved)

prune0.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

simplify165.0ms (2.9%)

Memory

-35.8MiB live, 223.6MiB allocated; 86ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
cost-diff	0	(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))
cost-diff	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))))
cost-diff	1	(+.f64 (.f64 re re) (.f64 im im))
cost-diff	4	(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	12	75
0	20	75
1	43	75
2	118	75
3	245	75
4	486	75
5	1545	75
6	4371	75
0	8525	49

Stop Event

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

localize51.0ms (0.9%)

Memory

38.7MiB live, 131.4MiB allocated; 6ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.01171875	(+.f64 (.f64 re re) (.f64 im im))
accuracy	6.971370431130512	(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)
accuracy	7.029013955231791	(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))
accuracy	32.669325603064394	(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))

Samples

20.0ms	188×	0	valid
9.0ms	19×	3	valid
7.0ms	23×	2	valid
5.0ms	26×	1	valid

Compiler

Compiled 77 to 14 computations (81.8% saved)

Precisions

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

ival-mult: 10.0ms (33.2% of total)

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

adjust: 5.0ms (16.6% of total)

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

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

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

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

exact: 0.0ms (0% of total)

series44.0ms (0.8%)

Memory

-16.9MiB live, 33.0MiB allocated; 9ms collecting garbage

Counts

5 → 93

Calls

Call 1

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

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

Calls

6 calls:

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

simplify178.0ms (3.1%)

Memory

37.1MiB live, 298.7MiB allocated; 55ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	519	3661
1	1654	3491
0	8363	2911

Stop Event

1×	iter limit
1×	node limit

Counts

93 → 93

Calls

Call 1

Inputs
#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 (* 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 (+ (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 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (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 (+ (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 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* 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 (+ (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 (+ 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 (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 (+ (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 (* 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 (* 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 (+ (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 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/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 (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))

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

rewrite58.0ms (1%)

Memory

3.7MiB live, 49.9MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	12	53
0	20	53
1	74	53
0	627	31

Stop Event

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

Counts

5 → 175

Calls

Call 1

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

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

eval81.0ms (1.4%)

Memory: -34.9MiB live, 68.6MiB allocated; 30ms collecting garbage
Compiler: Compiled 6 427 to 1 621 computations (74.8% saved)

prune12.0ms (0.2%)

Memory

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

Pruning

14 alts after pruning (14 fresh and 0 done)

	Pruned	Kept	Total
New	254	14	268
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	255	14	269

Accuracy

87.0%

Counts

269 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	78.1%	(.f64 (sqrt.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	77.5%	(.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/4 binary64))))
	37.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
▶	26.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (.f64 #s(literal 1/2 binary64) re) (.f64 (/.f64 im re) (/.f64 im re)) re)) re))))
▶	6.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
	52.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
▶	50.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #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)))))
	26.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #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))))))
	10.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (.f64 #s(literal 1/2 binary64) im) im (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/16 binary64)) (pow.f64 re #s(literal 4 binary64))))) (neg.f64 re))))))
	12.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) im) im (.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re))) (neg.f64 re))))))
	14.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (/.f64 (.f64 im im) re) #s(literal -1/2 binary64))))))
	50.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
	49.8%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
▶	26.8%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 re) #s(literal 1 binary64)))

Compiler

Compiled 630 to 448 computations (28.9% saved)

simplify117.0ms (2%)

Memory

-59.6MiB live, 100.9MiB allocated; 39ms collecting garbage

Localize:

Found 19 expressions of interest:

New	Metric	Score
cost-diff	0	(.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (fma.f64 (.f64 #s(literal 1/2 binary64) re) (.f64 (/.f64 im re) (/.f64 im re)) re)) re))
cost-diff	0	(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (fma.f64 (.f64 #s(literal 1/2 binary64) re) (.f64 (/.f64 im re) (/.f64 im re)) re)) re)))
cost-diff	0	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (.f64 #s(literal 1/2 binary64) re) (.f64 (/.f64 im re) (/.f64 im re)) re)) re))))
cost-diff	4	(fma.f64 (.f64 #s(literal 1/2 binary64) re) (.f64 (/.f64 im re) (/.f64 im re)) re)
cost-diff	0	#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))
cost-diff	0	(.f64 #s(literal 2 binary64) #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)))
cost-diff	0	(sqrt.f64 (.f64 #s(literal 2 binary64) #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))))
cost-diff	0	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #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)))))
cost-diff	0	(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)
cost-diff	0	(.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 re)) re))
cost-diff	0	(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 re)) re)))
cost-diff	0	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
cost-diff	0	(sqrt.f64 re)
cost-diff	0	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 re) #s(literal 1 binary64)))
cost-diff	2	(*.f64 (sqrt.f64 re) #s(literal 1 binary64))
cost-diff	0	(+.f64 (hypot.f64 im re) re)
cost-diff	0	(*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))
cost-diff	0	(sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)))
cost-diff	0	(.f64 (sqrt.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	43	408
0	73	329
1	144	329
2	359	329
3	1033	329
4	4297	311
0	8216	305

Stop Event

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

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

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

localize105.0ms (1.8%)

Memory

30.5MiB live, 122.6MiB allocated; 10ms collecting garbage

Localize:

Found 19 expressions of interest:

New	Metric	Score
accuracy	0.0078125	(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (.f64 #s(literal 1/2 binary64) re) (.f64 (/.f64 im re) (/.f64 im re)) re)) re)
accuracy	0.1015625	(*.f64 (/.f64 im re) (/.f64 im re))
accuracy	3.2994656791334753	(fma.f64 (.f64 #s(literal 1/2 binary64) re) (.f64 (/.f64 im re) (/.f64 im re)) re)
accuracy	14.890919823326929	#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (.f64 #s(literal 1/2 binary64) re) (.f64 (/.f64 im re) (/.f64 im re)) re))
accuracy	0.0	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #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)))))
accuracy	0.0	(sqrt.f64 (.f64 #s(literal 2 binary64) #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))))
accuracy	0.0234375	(fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im)
accuracy	15.33229828721137	#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))
accuracy	0.0	(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 re)) re)))
accuracy	0.0	(neg.f64 re)
accuracy	0.0078125	(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)
accuracy	31.745411242851354	#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
accuracy	0.0	(*.f64 (sqrt.f64 re) #s(literal 1 binary64))
accuracy	0.0	(sqrt.f64 re)
accuracy	15.093851882123626	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 re) #s(literal 1 binary64)))
accuracy	0.0	(*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))
accuracy	0.0	(.f64 (sqrt.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
accuracy	0.0	(sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)))
accuracy	0.0078125	(+.f64 (hypot.f64 im re) re)

Samples

31.0ms	129×	0	valid
28.0ms	127×	0	invalid

Compiler

Compiled 314 to 30 computations (90.4% saved)

Precisions

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

ival-mult: 16.0ms (39.7% of total)

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

ival-add: 6.0ms (14.9% of total)

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

ival-div: 4.0ms (9.9% of total)

ival-neg: 1.0ms (2.5% of total)

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

series27.0ms (0.5%)

Memory

-6.3MiB live, 39.1MiB allocated; 4ms collecting garbage

Counts

25 → 224

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

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

Calls

6 calls:

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

simplify187.0ms (3.3%)

Memory

10.6MiB live, 188.7MiB allocated; 25ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	783	8371
1	2260	8035
0	8459	6707

Stop Event

1×	iter limit
1×	node limit

Counts

224 → 224

Calls

Call 1

Inputs
#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 re) 1) #s(hole binary64 (sqrt 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 re) #s(hole binary64 (sqrt re)))
#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 (+ (* (* 1/2 re) (* (/ im re) (/ im re))) re) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (+ (* (* 1/2 re) (* (/ im re) (/ im re))) re) #s(hole binary64 (/ (+ (* 1/2 (pow im 2)) (pow re 2)) re)))
#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 (+ (* (+ (* (/ re im) 1/2) 1) re) im) #s(hole binary64 im))
#s(approx (+ (* (+ (* (/ re im) 1/2) 1) re) im) #s(hole binary64 (+ im re)))
#s(approx (+ (* (+ (* (/ re im) 1/2) 1) re) im) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (* (/ im re) (/ im re)) #s(hole binary64 (/ (pow im 2) (pow re 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 (* 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 (+ (* (* 1/2 re) (* (/ im re) (/ im re))) re) #s(hole binary64 re))
#s(approx (+ (* (* 1/2 re) (* (/ im re) (/ im re))) re) #s(hole binary64 (* re (+ 1 (* 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 im) 1/2) 1) re) im) #s(hole binary64 (* 1/2 (/ (pow re 2) im))))
#s(approx (+ (* (+ (* (/ re im) 1/2) 1) re) im) #s(hole binary64 (* (pow re 2) (+ (* 1/2 (/ 1 im)) (/ 1 re)))))
#s(approx (+ (* (+ (* (/ re im) 1/2) 1) re) im) #s(hole binary64 (* (pow re 2) (+ (* 1/2 (/ 1 im)) (+ (/ 1 re) (/ im (pow re 2)))))))
#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 re) 1) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 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 re) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#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 (+ (* (* 1/2 re) (* (/ im re) (/ im re))) re) #s(hole binary64 (* -1 (* re (- (* -1/2 (/ (pow im 2) (pow re 2))) 1)))))
#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 (+ (* (+ (* (/ re im) 1/2) 1) re) im) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -1 (/ im re)) 1) re)) (* 1/2 (/ 1 im))))))
#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 (* 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 (+ (* (* 1/2 re) (* (/ im re) (/ im re))) re) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) 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 (+ (* (+ (* (/ re im) 1/2) 1) re) im) #s(hole binary64 (/ (+ (* 1/2 (pow re 2)) (* im re)) im)))
#s(approx (+ (* (+ (* (/ re im) 1/2) 1) re) im) #s(hole binary64 (/ (+ (* 1/2 (pow re 2)) (* im (+ im re))) im)))
#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 (* 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 (+ (* (* 1/2 re) (* (/ im re) (/ im re))) re) #s(hole binary64 (* (pow im 2) (+ (* 1/2 (/ 1 re)) (/ re (pow im 2))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* (+ (* (/ re im) 1/2) 1) re) im) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (* (+ (* (/ re im) 1/2) 1) re) im) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/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 (* 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 (+ (* (+ (* (/ re im) 1/2) 1) re) im) #s(hole binary64 (* -1 (* im (- (* -1 (/ re im)) 1)))))
#s(approx (+ (* (+ (* (/ re im) 1/2) 1) re) im) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* 1/2 (/ (pow re 2) im))) im)) 1)))))

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

rewrite95.0ms (1.7%)

Memory

-7.7MiB live, 95.5MiB allocated; 13ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	43	372
0	73	279
1	269	279
0	1966	279

Stop Event

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

Counts

25 → 269

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

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

eval49.0ms (0.9%)

Memory: -0.1MiB live, 87.1MiB allocated; 12ms collecting garbage
Compiler: Compiled 15 370 to 2 154 computations (86% saved)

prune14.0ms (0.3%)

Memory

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

Pruning

15 alts after pruning (13 fresh and 2 done)

	Pruned	Kept	Total
New	382	12	394
Fresh	8	1	9
Picked	3	2	5
Done	0	0	0
Total	393	15	408

Accuracy

87.0%

Counts

408 → 15

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	77.5%	(.f64 (.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))) #s(literal 1/2 binary64))
✓	78.1%	(.f64 (sqrt.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	52.4%	(.f64 (sqrt.f64 (.f64 #s(approx (+ (sqrt (+ (* im im) (* re re))) re) (+.f64 re im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	50.1%	(.f64 (sqrt.f64 (.f64 #s(approx (+ (sqrt (+ (* im im) (* re re))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	50.3%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64))
	26.1%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64))
	10.4%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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))) (neg.f64 re)))) #s(literal 1/2 binary64))
	11.7%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 im im)) (neg.f64 re)))) #s(literal 1/2 binary64))
	14.4%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 (neg.f64 im) im) re))) #s(literal 1/2 binary64))
▶	50.1%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))) im))) #s(literal 1/2 binary64))
	26.9%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))) #s(literal 1/2 binary64))
▶	49.8%	(.f64 #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))) #s(literal 1/2 binary64))
	37.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
✓	6.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
▶	26.8%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))

Compiler

Compiled 648 to 455 computations (29.8% saved)

simplify139.0ms (2.4%)

Memory

-30.7MiB live, 152.3MiB allocated; 36ms collecting garbage

Localize:

Found 18 expressions of interest:

New	Metric	Score
cost-diff	0	(sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))) im)))
cost-diff	0	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))) im))) #s(literal 1/2 binary64))
cost-diff	2	(*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))) im)
cost-diff	3	(fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)))
cost-diff	0	(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))
cost-diff	0	#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
cost-diff	0	(sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))))
cost-diff	0	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64))
cost-diff	0	(sqrt.f64 #s(literal 2 binary64))
cost-diff	0	(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))
cost-diff	0	#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
cost-diff	0	(.f64 #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))) #s(literal 1/2 binary64))
cost-diff	0	(sqrt.f64 re)
cost-diff	0	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
cost-diff	0	(*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))
cost-diff	0	(pow.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) #s(literal 1/4 binary64))
cost-diff	0	(.f64 (.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))) #s(literal 1/2 binary64))
cost-diff	11	(.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)))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	43	354
0	68	284
1	135	280
2	361	280
3	1125	280
4	3949	280
0	8247	279

Stop Event

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

Calls

Call 1

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

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

localize135.0ms (2.4%)

Memory

21.9MiB live, 167.8MiB allocated; 36ms collecting garbage

Localize:

Found 18 expressions of interest:

New	Metric	Score
accuracy	0.0	(sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))) im)))
accuracy	0.05078125	(fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)))
accuracy	1.9133775469200809	(*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))) im)
accuracy	15.330837867389217	#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))) im))
accuracy	0.0	(*.f64 #s(literal 2 binary64) im)
accuracy	0.0	(sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))))
accuracy	0.0234375	(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))
accuracy	15.330837867389217	#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
accuracy	0.0	(sqrt.f64 im)
accuracy	0.0	(sqrt.f64 #s(literal 2 binary64))
accuracy	0.22722626953688402	(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))
accuracy	15.515226834816332	#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
accuracy	0.0	(sqrt.f64 re)
accuracy	15.093851882123626	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
accuracy	0.0	(.f64 (.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))) #s(literal 1/2 binary64))
accuracy	0.00390625	(pow.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) #s(literal 1/4 binary64))
accuracy	0.0078125	(+.f64 (hypot.f64 re im) re)
accuracy	0.28257753907376804	(.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)))

Samples

46.0ms	129×	0	valid
33.0ms	127×	0	invalid

Compiler

Compiled 321 to 36 computations (88.8% saved)

Precisions

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

ival-mult: 31.0ms (50.7% of total)

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

ival-sqrt: 8.0ms (13.1% of total)

ival-add: 7.0ms (11.4% of total)

ival-pow: 4.0ms (6.5% of total)

ival-div: 2.0ms (3.3% of total)

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

series67.0ms (1.2%)

Memory

12.8MiB live, 58.2MiB allocated; 5ms collecting garbage

Counts

22 → 287

Calls

Call 1

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

Outputs
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (pow (* 2 im) 1/4)))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* 1/4 (* (pow (/ 2 (pow im 3)) 1/4) re)) (pow (* 2 im) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* re (+ (* 1/32 (* (pow (/ 2 (pow im 7)) 1/4) re)) (* 1/4 (pow (/ 2 (pow im 3)) 1/4)))) (pow (* 2 im) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* re (+ (* 1/4 (pow (/ 2 (pow im 3)) 1/4)) (* re (+ (* -5/128 (* (pow (/ 2 (pow im 11)) 1/4) re)) (* 1/32 (pow (/ 2 (pow im 7)) 1/4)))))) (pow (* 2 im) 1/4))))
#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 re) #s(hole binary64 (sqrt 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 (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 (* (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 (+ (* (+ (/ 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) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 2))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (+ 2 (* 2 (/ re im)))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (+ 2 (* re (+ (* 2 (/ 1 im)) (/ re (pow im 2)))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re 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 (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (+ (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/24576 (pow im 6)) (+ (* 1/2880 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/1536 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))) (pow re 6)) (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4)))))))
#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))) 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 (* (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 (+ (* (+ (/ 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) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ 1 (* im re))) (/ 1 (pow im 2))))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (* (pow re 2) (+ (/ 1 (pow im 2)) (+ (/ 2 (* im re)) (/ 2 (pow re 2)))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (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/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (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/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (+ (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/1536 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/24576 (pow im 6)) (* 1/2880 (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))))))) (pow re 6)) (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4)))))))
#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 re) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#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 (* (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 (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#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 (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (pow (* 4 re) 1/4)))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* 1/16 (* (pow (/ 4 (pow re 7)) 1/4) (pow im 2))) (pow (* 4 re) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* (pow im 2) (+ (* -11/512 (* (pow (/ 4 (pow re 15)) 1/4) (pow im 2))) (* 1/16 (pow (/ 4 (pow re 7)) 1/4)))) (pow (* 4 re) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/16 (pow (/ 4 (pow re 7)) 1/4)) (* (pow im 2) (+ (* -11/512 (pow (/ 4 (pow re 15)) 1/4)) (* 95/8192 (* (pow (/ 4 (pow re 23)) 1/4) (pow im 2))))))) (pow (* 4 re) 1/4))))
#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))) 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 (* (sqrt 2) (sqrt im)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#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 (+ (* (+ (/ 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) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) (pow im 2))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) (pow im 2))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#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 im) #s(hole binary64 (sqrt im)))
#s(approx (* 2 im) #s(hole binary64 (* 2 im)))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/384 (pow re 3)) (+ (* 1/32 (* re (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/24 (+ (* -3 (pow re 3)) (* 2 (pow re 3))))))) (pow im 3)) (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 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))) 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 (* (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 (+ (* (+ (/ 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 (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* im (+ 2 (+ (* 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 (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))) im)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) im)) (* 1/4 (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/384 (pow re 3)) (+ (* 1/32 (* re (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/24 (+ (* -3 (pow re 3)) (* 2 (pow re 3))))))) im)) (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2)))))) im)) (* 1/4 (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#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))) 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 (* (sqrt 2) (sqrt im)) #s(hole binary64 (* -1 (* (sqrt im) (* (pow (sqrt -1) 2) (sqrt 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 (+ (* (+ (/ 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 (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#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 im) #s(hole binary64 (* -1 (* (sqrt im) (pow (sqrt -1) 2)))))

Calls

6 calls:

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

simplify234.0ms (4.1%)

Memory

-21.5MiB live, 211.2MiB allocated; 38ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1162	12647
1	3411	12177
0	8302	10548

Stop Event

1×	iter limit
1×	node limit

Counts

287 → 287

Calls

Call 1

Inputs
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (pow (* 2 im) 1/4)))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* 1/4 (* (pow (/ 2 (pow im 3)) 1/4) re)) (pow (* 2 im) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* re (+ (* 1/32 (* (pow (/ 2 (pow im 7)) 1/4) re)) (* 1/4 (pow (/ 2 (pow im 3)) 1/4)))) (pow (* 2 im) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* re (+ (* 1/4 (pow (/ 2 (pow im 3)) 1/4)) (* re (+ (* -5/128 (* (pow (/ 2 (pow im 11)) 1/4) re)) (* 1/32 (pow (/ 2 (pow im 7)) 1/4)))))) (pow (* 2 im) 1/4))))
#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 re) #s(hole binary64 (sqrt 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 (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 (* (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 (+ (* (+ (/ 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) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 2))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (+ 2 (* 2 (/ re im)))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (+ 2 (* re (+ (* 2 (/ 1 im)) (/ re (pow im 2)))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re 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 (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (+ (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/24576 (pow im 6)) (+ (* 1/2880 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/1536 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))) (pow re 6)) (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4)))))))
#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))) 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 (* (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 (+ (* (+ (/ 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) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ 1 (* im re))) (/ 1 (pow im 2))))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (* (pow re 2) (+ (/ 1 (pow im 2)) (+ (/ 2 (* im re)) (/ 2 (pow re 2)))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (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/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (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/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (+ (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/1536 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/24576 (pow im 6)) (* 1/2880 (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))))))) (pow re 6)) (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4)))))))
#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 re) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#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 (* (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 (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#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 (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (pow (* 4 re) 1/4)))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* 1/16 (* (pow (/ 4 (pow re 7)) 1/4) (pow im 2))) (pow (* 4 re) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* (pow im 2) (+ (* -11/512 (* (pow (/ 4 (pow re 15)) 1/4) (pow im 2))) (* 1/16 (pow (/ 4 (pow re 7)) 1/4)))) (pow (* 4 re) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/16 (pow (/ 4 (pow re 7)) 1/4)) (* (pow im 2) (+ (* -11/512 (pow (/ 4 (pow re 15)) 1/4)) (* 95/8192 (* (pow (/ 4 (pow re 23)) 1/4) (pow im 2))))))) (pow (* 4 re) 1/4))))
#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))) 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 (* (sqrt 2) (sqrt im)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#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 (+ (* (+ (/ 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) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) (pow im 2))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) (pow im 2))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#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 im) #s(hole binary64 (sqrt im)))
#s(approx (* 2 im) #s(hole binary64 (* 2 im)))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/384 (pow re 3)) (+ (* 1/32 (* re (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/24 (+ (* -3 (pow re 3)) (* 2 (pow re 3))))))) (pow im 3)) (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 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))) 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 (* (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 (+ (* (+ (/ 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 (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* im (+ 2 (+ (* 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 (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))) im)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) im)) (* 1/4 (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/384 (pow re 3)) (+ (* 1/32 (* re (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/24 (+ (* -3 (pow re 3)) (* 2 (pow re 3))))))) im)) (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2)))))) im)) (* 1/4 (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#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))) 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 (* (sqrt 2) (sqrt im)) #s(hole binary64 (* -1 (* (sqrt im) (* (pow (sqrt -1) 2) (sqrt 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 (+ (* (+ (/ 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 (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#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 im) #s(hole binary64 (* -1 (* (sqrt im) (pow (sqrt -1) 2)))))

Outputs
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (.f64 (.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)))) re (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 im im)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) #s(literal 2 binary64)))) re) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) re (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)))) re (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (* (+ (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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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)) 1/2) (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/32 binary64))) re)) re (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (pow (* 2 im) 1/4)))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/4 binary64)))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* 1/4 (* (pow (/ 2 (pow im 3)) 1/4) re)) (pow (* 2 im) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (fma.f64 (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/4 binary64)) re) #s(literal 1/4 binary64) (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/4 binary64))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* re (+ (* 1/32 (* (pow (/ 2 (pow im 7)) 1/4) re)) (* 1/4 (pow (/ 2 (pow im 3)) 1/4)))) (pow (* 2 im) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (fma.f64 (fma.f64 (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 7 binary64))) #s(literal 1/4 binary64)) re) #s(literal 1/32 binary64) (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/4 binary64)) #s(literal 1/4 binary64))) re (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/4 binary64))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* re (+ (* 1/4 (pow (/ 2 (pow im 3)) 1/4)) (* re (+ (* -5/128 (* (pow (/ 2 (pow im 11)) 1/4) re)) (* 1/32 (pow (/ 2 (pow im 7)) 1/4)))))) (pow (* 2 im) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (fma.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 11 binary64))) #s(literal 1/4 binary64)) re) #s(literal -5/128 binary64) (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 7 binary64))) #s(literal 1/4 binary64)) #s(literal 1/32 binary64))) re (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/4 binary64)) #s(literal 1/4 binary64))) re (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/4 binary64))))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal 2 binary64) im))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal 2 binary64) (+.f64 im 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) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #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) 2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (.f64 #s(literal 2 binary64) im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (* (+ (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 (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 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#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 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/32 binary64))) re)) re (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt re) #s(hole binary64 (sqrt re)))
#s(approx (sqrt re) (sqrt.f64 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 (* (+ (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 (* (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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64) (.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) #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) (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (.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) #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)) 1/2) (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/32 binary64))) re)) re (.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))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 #s(literal 1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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 (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/16 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (.f64 #s(literal 1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))))) re)) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64))))
#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) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#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) (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#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)) 1/2) (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/32 binary64))) re)) re (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#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)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#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)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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)) (fma.f64 (fma.f64 #s(literal 1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/16 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (.f64 #s(literal 1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))))) re)) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal 2 binary64) im))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* (+ (sqrt (+ (* 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 (+ (* re re) (* im im))) re) 2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (.f64 #s(literal 2 binary64) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (*.f64 #s(literal 2 binary64) im))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 2))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(literal 2 binary64))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (+ 2 (* 2 (/ re im)))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (+ 2 (* re (+ (* 2 (/ 1 im)) (/ re (pow im 2)))))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) (fma.f64 (+.f64 (/.f64 re (*.f64 im im)) (/.f64 #s(literal 2 binary64) im)) re #s(literal 2 binary64)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (*.f64 #s(literal 2 binary64) im))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 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) (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) #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))) 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 (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 #s(literal -1/64 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))))) re))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))) re))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))))) re))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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)) 1/2) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))) re))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (fma.f64 (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64)))) (.f64 im im)) (*.f64 re re)) #s(literal 1/16 binary64) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (+.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64)))) (.f64 im im)) (.f64 re re)) #s(literal 1/16 binary64) (/.f64 (.f64 (fma.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) #s(literal 1/96 binary64) (.f64 #s(literal 1/512 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))))) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (+ (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/24576 (pow im 6)) (+ (* 1/2880 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/1536 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))) (pow re 6)) (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4)))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (+.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64)))) (.f64 im im)) (.f64 re re)) #s(literal 1/16 binary64) (fma.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64)))) (/.f64 (fma.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/24576 binary64) (fma.f64 (.f64 #s(literal 1/1536 binary64) (.f64 im im)) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (.f64 (fma.f64 #s(literal 15/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 135/4 binary64))) #s(literal 1/2880 binary64)))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (fma.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) #s(literal 1/96 binary64) (*.f64 #s(literal 1/512 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))))) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))))))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal 4 binary64) 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) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#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) (.f64 (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 4 binary64)) re))
#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) 2) (.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 im re) (/.f64 im re) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 4 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 (* (sqrt (* (+ (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 (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 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))) re))
#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 (* (sqrt (* (+ (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 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))))) re))
#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 (* (+ (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 (/.f64 #s(literal 1 binary64) (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 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))) 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 (* (+ (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 (* (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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))) re))
#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 (* (+ (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 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))))) re))
#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 (* (+ (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 (/.f64 #s(literal 1 binary64) (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 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#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 (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))))) re))
#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) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#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) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))) re))
#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) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))))) re))
#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)) 1/2) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))) re))
#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)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#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)) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#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)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))))) re))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal 4 binary64) re))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#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 (+ (* re re) (* im im))) re) 2) (.f64 (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 4 binary64)) re))
#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 (+ (* re re) (* im im))) re) 2) (.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 im re) (/.f64 im re) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 4 binary64)) re))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (/.f64 (*.f64 re re) 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)) (.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) (.f64 re 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) re) (* 2 im)) (.f64 (fma.f64 (/.f64 im re) (/.f64 #s(literal 2 binary64) re) (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im))) (.f64 re re)))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) (*.f64 (/.f64 re im) (/.f64 re im)))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ 1 (* im re))) (/ 1 (pow im 2))))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) (.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 im im)) (/.f64 (/.f64 #s(literal 2 binary64) im) re)) (*.f64 re re)))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (* (pow re 2) (+ (/ 1 (pow im 2)) (+ (/ 2 (* im re)) (/ 2 (pow re 2)))))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) (.f64 (+.f64 (+.f64 (/.f64 #s(literal 2 binary64) (.f64 re re)) (/.f64 (/.f64 #s(literal 2 binary64) im) re)) (/.f64 #s(literal 1 binary64) (.f64 im im))) (.f64 re re)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (/.f64 (*.f64 re re) im))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) (.f64 re re)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (.f64 (fma.f64 (/.f64 im re) (/.f64 #s(literal 2 binary64) re) (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im))) (.f64 re re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) 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) (.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) #s(literal 2 binary64)) re))
#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) (.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal -2 binary64)) re))
#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))) 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 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal -2 binary64)) re))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) #s(literal 1/8 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 re) (.f64 (.f64 #s(literal 1/16 binary64) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 re) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64)))) #s(literal 9/128 binary64))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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)) 1/2) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/1024 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (*.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (fma.f64 (/.f64 #s(literal -1/16 binary64) re) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 im im)) re) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (+.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) re) (/.f64 (.f64 im im) re)) #s(literal -1/16 binary64) (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (/.f64 (fma.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) #s(literal 1/96 binary64) (.f64 #s(literal 1/512 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (+ (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/1536 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/24576 (pow im 6)) (* 1/2880 (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))))))) (pow re 6)) (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4)))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (+.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) re) (/.f64 (.f64 im im) re)) #s(literal -1/16 binary64) (fma.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (/.f64 (fma.f64 (.f64 #s(literal -1/1536 binary64) (.f64 im im)) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) (fma.f64 (fma.f64 (/.f64 #s(literal -720 binary64) im) (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) im) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64))) #s(literal 1/2880 binary64) (.f64 #s(literal -1/24576 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (/.f64 (fma.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) #s(literal 1/96 binary64) (.f64 #s(literal 1/512 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64)))))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (*.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) 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) (/.f64 (*.f64 (neg.f64 im) im) 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) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 im im)) (neg.f64 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) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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))) (neg.f64 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) 2) (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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)))) (neg.f64 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 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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 (* (sqrt (* (+ (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)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))
#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 (* (sqrt (* (+ (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)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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 (* (+ (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)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/1024 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (sqrt re) (*.f64 (sqrt.f64 re) #s(literal 1 binary64)))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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 (* (+ (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)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))
#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 (* (+ (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)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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 (* (+ (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)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/1024 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (.f64 (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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 (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (.f64 #s(literal 1/512 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))
#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) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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)) 1/2) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/1024 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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)) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (.f64 (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (.f64 #s(literal 1/512 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (/.f64 (*.f64 (neg.f64 im) im) 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 (+ (* re re) (* im im))) re) 2) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 im im)) (neg.f64 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 (+ (* re re) (* im im))) re) 2) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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))) (neg.f64 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 (+ (* re re) (* im im))) re) 2) (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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)))) (neg.f64 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 (+ (* (+ (/ re im) 2) re) (* 2 im)) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 im re) #s(literal -2 binary64) #s(literal -2 binary64)) re) #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) im)) (.f64 re re)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 im re) #s(literal -2 binary64) #s(literal -2 binary64)) re) #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) im)) (.f64 re 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) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) 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) (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (.f64 (.f64 im im) #s(literal 1/2 binary64))) (neg.f64 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) (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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)))) (neg.f64 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))) re) (/.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 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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))))) (neg.f64 re)))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -5/64 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 7 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 21/512 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 11 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 7 binary64)))) #s(literal -5/64 binary64))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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)) 1/2) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 re re)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (pow (* 4 re) 1/4)))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/4 binary64)))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* 1/16 (* (pow (/ 4 (pow re 7)) 1/4) (pow im 2))) (pow (* 4 re) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (fma.f64 (.f64 (pow.f64 (/.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 7 binary64))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)) (.f64 im im) (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/4 binary64))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* (pow im 2) (+ (* -11/512 (* (pow (/ 4 (pow re 15)) 1/4) (pow im 2))) (* 1/16 (pow (/ 4 (pow re 7)) 1/4)))) (pow (* 4 re) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (fma.f64 (fma.f64 (.f64 (pow.f64 (/.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 15 binary64))) #s(literal 1/4 binary64)) #s(literal -11/512 binary64)) (.f64 im im) (.f64 (pow.f64 (/.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 7 binary64))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64))) (.f64 im im) (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/4 binary64))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/16 (pow (/ 4 (pow re 7)) 1/4)) (* (pow im 2) (+ (* -11/512 (pow (/ 4 (pow re 15)) 1/4)) (* 95/8192 (* (pow (/ 4 (pow re 23)) 1/4) (pow im 2))))))) (pow (* 4 re) 1/4))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 95/8192 binary64) (pow.f64 (/.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 23 binary64))) #s(literal 1/4 binary64))) (.f64 im im) (.f64 (pow.f64 (/.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 15 binary64))) #s(literal 1/4 binary64)) #s(literal -11/512 binary64))) (.f64 im im) (.f64 (pow.f64 (/.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 7 binary64))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64))) (.f64 im im) (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/4 binary64))))
#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) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) 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) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (.f64 im im) (*.f64 #s(literal 4 binary64) 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) 2) (fma.f64 (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im) (/.f64 #s(literal 1 binary64) re)) (.f64 im im) (*.f64 #s(literal 4 binary64) 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 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 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)))) #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) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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/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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 re re)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (* (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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (* (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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 re re)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (+ (* 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 (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 re re)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/2 binary64))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 im)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt 2) (sqrt im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#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) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 re) #s(literal 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 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) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (* (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)) 1/2) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 re re)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (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)) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#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)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (+ (* 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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 re re)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/2 binary64))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) 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 (+ (* re re) (* im im))) re) 2) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (.f64 im im) (*.f64 #s(literal 4 binary64) 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 (+ (* re re) (* im im))) re) 2) (fma.f64 (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im) (/.f64 #s(literal 1 binary64) re)) (.f64 im im) (*.f64 #s(literal 4 binary64) 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)) (/.f64 (fma.f64 (.f64 im re) #s(literal 2 binary64) (.f64 re re)) 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) re) (* 2 im)) (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (+.f64 im re)) im (.f64 re re)) im))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) (pow im 2))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) (/.f64 (fma.f64 (.f64 im re) #s(literal 2 binary64) (.f64 re re)) (*.f64 im im)))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) (pow im 2))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (+.f64 im re)) im (.f64 re re)) (*.f64 im im)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (/.f64 (fma.f64 (.f64 im re) #s(literal 2 binary64) (.f64 re re)) im))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (+.f64 im re)) im (.f64 re re)) im))
#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) (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) #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) (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) #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))) re) (fma.f64 (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (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 im) #s(hole binary64 (sqrt im)))
#s(approx (sqrt im) (sqrt.f64 im))
#s(approx (* 2 im) #s(hole binary64 (* 2 im)))
#s(approx (* 2 im) (*.f64 #s(literal 2 binary64) im))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 (/.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (/.f64 re #s(literal 2 binary64)) (/.f64 re (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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)) 1/2) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))))) im))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (fma.f64 (*.f64 re (/.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) im)) #s(literal 1/4 binary64) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (+.f64 (fma.f64 (.f64 re (/.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) im)) #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) #s(literal 1/8 binary64) (.f64 (.f64 re re) #s(literal 1/32 binary64))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))) (*.f64 im im))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/384 (pow re 3)) (+ (* 1/32 (* re (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/24 (+ (* -3 (pow re 3)) (* 2 (pow re 3))))))) (pow im 3)) (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2)))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (+.f64 (fma.f64 (.f64 re (/.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) im)) #s(literal 1/4 binary64) (fma.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) (/.f64 (fma.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) #s(literal 1/8 binary64) (.f64 (.f64 re re) #s(literal 1/32 binary64))) (.f64 im im)) (/.f64 (.f64 (fma.f64 #s(literal 1/384 binary64) (pow.f64 re #s(literal 3 binary64)) (fma.f64 (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1 binary64)) #s(literal 1/24 binary64) (.f64 (.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) re) #s(literal 1/32 binary64)))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))) (pow.f64 im #s(literal 3 binary64))))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))))
#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) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) 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) (.f64 (-.f64 (/.f64 (.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re) im) #s(literal -2 binary64)) im))
#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) 2) (.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re) im)) #s(literal -2 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 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#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 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))))) im))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))))) im))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#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 (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#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) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#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) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#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)) 1/2) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))))) im))
#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)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#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)) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) 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) (.f64 (-.f64 (/.f64 (.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re) im) #s(literal -2 binary64)) im))
#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 (+ (* re re) (* im im))) re) 2) (.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re) im)) #s(literal -2 binary64)) im))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re 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)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (.f64 (-.f64 (/.f64 (.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re) im) #s(literal -2 binary64)) im))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) (-.f64 (/.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re) im) #s(literal -2 binary64)))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (.f64 (-.f64 (/.f64 (.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re) im) #s(literal -2 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re 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) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (+.f64 (fma.f64 (.f64 (/.f64 re im) (/.f64 re im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) 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))) 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 im) (/.f64 re im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -1 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (neg.f64 im) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im) (.f64 (/.f64 (sqrt.f64 im) #s(literal 2 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64)))))) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4)) 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)) 1/2) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (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) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))) im)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (fma.f64 (*.f64 re (/.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) im)) #s(literal -1/4 binary64) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) im)) (* 1/4 (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) re) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) #s(literal 1/8 binary64) (.f64 (.f64 re re) #s(literal 1/32 binary64)))) (neg.f64 im))) im) #s(literal -1 binary64) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/384 (pow re 3)) (+ (* 1/32 (* re (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/24 (+ (* -3 (pow re 3)) (* 2 (pow re 3))))))) im)) (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2)))))) im)) (* 1/4 (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) 1/4) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) re) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) (/.f64 (fma.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) #s(literal 1/8 binary64) (.f64 (.f64 re re) #s(literal 1/32 binary64))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/384 binary64) (pow.f64 re #s(literal 3 binary64)) (fma.f64 (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1 binary64)) #s(literal 1/24 binary64) (.f64 (.f64 (.f64 #s(literal 0 binary64) (*.f64 re re)) re) #s(literal 1/32 binary64))))) (neg.f64 im))) (neg.f64 im))) im) #s(literal -1 binary64) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal -2 binary64) im))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#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) (.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (.f64 (neg.f64 re) re) im)) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#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) 2) (.f64 (neg.f64 im) (-.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (.f64 re re)) (neg.f64 im))) (neg.f64 im)) #s(literal -2 binary64))))
#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 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64)))))))
#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 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))))))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (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) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))))))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64)))))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))))))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (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) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -1 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))))
#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 (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (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 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (sqrt 2) (sqrt im)) #s(hole binary64 (* -1 (* (sqrt im) (* (pow (sqrt -1) 2) (sqrt 2))))))
#s(approx (* (sqrt 2) (sqrt im)) (.f64 (.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64))))
#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) (.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64)))))))
#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) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))))))))
#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)) 1/2) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (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) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))))))))
#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)) (.f64 (.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -1 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#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)) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#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)) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (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 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal -2 binary64) im))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#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 (+ (* re re) (* im im))) re) 2) (.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (.f64 (neg.f64 re) re) im)) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#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 (+ (* re re) (* im im))) re) 2) (.f64 (neg.f64 im) (-.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (.f64 re re)) (neg.f64 im))) (neg.f64 im)) #s(literal -2 binary64))))
#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)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal -2 binary64))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (.f64 re re) im)) im) #s(literal -1 binary64) #s(literal -2 binary64))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) #s(hole binary64 (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))
#s(approx (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) (neg.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (*.f64 re re) im)) im) #s(literal -1 binary64) #s(literal -2 binary64))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal -2 binary64))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (* (+ (* (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) im) (.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (.f64 re re) im)) im) #s(literal -1 binary64) #s(literal -2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 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) (*.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) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#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) #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))) re) (.f64 (neg.f64 im) (+.f64 (/.f64 (+.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (.f64 (*.f64 re re) #s(literal 1/2 binary64))) (neg.f64 im)) re) (neg.f64 im)) #s(literal 1 binary64))))
#s(approx (sqrt im) #s(hole binary64 (* -1 (* (sqrt im) (pow (sqrt -1) 2)))))
#s(approx (sqrt im) (*.f64 #s(literal 1 binary64) (sqrt.f64 im)))

rewrite38.0ms (0.7%)

Memory

15.2MiB live, 59.3MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	43	317
0	68	257
0	257	257

Stop Event

1×	iter limit
1×	iter limit
1×	iter limit
1×	unsound
1×	iter limit

Counts

22 → 72

Calls

Call 1

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

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

eval39.0ms (0.7%)

Memory: 21.5MiB live, 66.2MiB allocated; 3ms collecting garbage
Compiler: Compiled 14 043 to 1 646 computations (88.3% saved)

prune38.0ms (0.7%)

Memory

-21.3MiB live, 24.7MiB allocated; 3ms collecting garbage

Pruning

15 alts after pruning (11 fresh and 4 done)

	Pruned	Kept	Total
New	323	3	326
Fresh	0	8	8
Picked	3	2	5
Done	0	2	2
Total	326	15	341

Accuracy

87.0%

Counts

341 → 15

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	77.5%	(.f64 (pow.f64 (pow.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 im re) re)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) #s(literal 1/2 binary64))
✓	78.1%	(.f64 (sqrt.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	52.4%	(.f64 (sqrt.f64 (.f64 #s(approx (+ (sqrt (+ (* im im) (* re re))) re) (+.f64 re im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	50.1%	(.f64 (sqrt.f64 (.f64 #s(approx (+ (sqrt (+ (* im im) (* re re))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	50.3%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
	26.1%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64))
	10.4%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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))) (neg.f64 re)))) #s(literal 1/2 binary64))
	11.7%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 im im)) (neg.f64 re)))) #s(literal 1/2 binary64))
▶	14.4%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 (neg.f64 im) im) re))) #s(literal 1/2 binary64))
▶	26.9%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))) #s(literal 1/2 binary64))
	50.2%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 #s(approx (+ ( (/ re im) (/ re im)) (+ (* (/ re im) 2) 2)) (-.f64 (/.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re) im) #s(literal -2 binary64))) im))) #s(literal 1/2 binary64))
✓	49.8%	(.f64 #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))) #s(literal 1/2 binary64))
	37.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
✓	6.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓	26.8%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))

Compiler

Compiled 621 to 440 computations (29.1% saved)

simplify130.0ms (2.3%)

Memory

33.7MiB live, 170.1MiB allocated; 35ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
cost-diff	0	(sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re)))
cost-diff	0	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))) #s(literal 1/2 binary64))
cost-diff	2	(*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re)
cost-diff	0	(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))
cost-diff	0	#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
cost-diff	0	(sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))
cost-diff	0	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
cost-diff	0	(/.f64 (*.f64 (neg.f64 im) im) re)
cost-diff	0	#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 (neg.f64 im) im) re))
cost-diff	0	(sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 (neg.f64 im) im) re)))
cost-diff	0	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 (neg.f64 im) im) re))) #s(literal 1/2 binary64))
cost-diff	0	#s(approx (+ (sqrt (+ (* im im) (* re re))) re) im)
cost-diff	0	(.f64 #s(approx (+ (sqrt (+ ( im im) (* re re))) re) im) #s(literal 2 binary64))
cost-diff	0	(sqrt.f64 (.f64 #s(approx (+ (sqrt (+ ( im im) (* re re))) re) im) #s(literal 2 binary64)))
cost-diff	0	(.f64 (sqrt.f64 (.f64 #s(approx (+ (sqrt (+ (* im im) (* re re))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
cost-diff	0	(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 im re) re))
cost-diff	0	(pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 im re) re)) #s(literal 1/4 binary64))
cost-diff	0	(.f64 (pow.f64 (pow.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 im re) re)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) #s(literal 1/2 binary64))
cost-diff	3	(pow.f64 (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 im re) re)) #s(literal 1/4 binary64)) #s(literal 2 binary64))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	41	321
0	69	321
1	117	317
2	265	315
3	674	315
4	1974	311
5	7810	311
0	8008	307

Stop Event

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

Calls

Call 1

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

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

localize150.0ms (2.6%)

Memory

-30.0MiB live, 221.2MiB allocated; 55ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.08984375	(fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64))
accuracy	4.702175071120244	(*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re)
accuracy	7.029013955231791	(sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re)))
accuracy	46.19430701730123	#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
accuracy	0.00390625	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
accuracy	0.06640625	(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))
accuracy	7.029013955231791	(sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))
accuracy	31.842872925865265	#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
accuracy	0.00390625	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 (neg.f64 im) im) re))) #s(literal 1/2 binary64))
accuracy	7.029013955231791	(sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 (neg.f64 im) im) re)))
accuracy	7.179348478046161	(/.f64 (*.f64 (neg.f64 im) im) re)
accuracy	45.82187321362829	#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 (neg.f64 im) im) re))
accuracy	0.0	(.f64 #s(approx (+ (sqrt (+ ( im im) (* re re))) re) im) #s(literal 2 binary64))
accuracy	0.00390625	(.f64 (sqrt.f64 (.f64 #s(approx (+ (sqrt (+ (* im im) (* re re))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
accuracy	7.029013955231791	(sqrt.f64 (.f64 #s(approx (+ (sqrt (+ ( im im) (* re re))) re) im) #s(literal 2 binary64)))
accuracy	32.207244084973055	#s(approx (+ (sqrt (+ (* im im) (* re re))) re) im)
accuracy	0.00390625	(.f64 (pow.f64 (pow.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 im re) re)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) #s(literal 1/2 binary64))
accuracy	0.4918937988422101	(pow.f64 (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 im re) re)) #s(literal 1/4 binary64)) #s(literal 2 binary64))
accuracy	6.971370431130512	(+.f64 (hypot.f64 im re) re)
accuracy	8.847705168993127	(pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 im re) re)) #s(literal 1/4 binary64))

Samples

78.0ms	188×	0	valid
22.0ms	33×	2	valid
19.0ms	35×	1	valid

Compiler

Compiled 326 to 29 computations (91.1% saved)

Precisions

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

ival-hypot: 26.0ms (27.2% of total)

ival-div: 20.0ms (20.9% of total)

ival-mult: 14.0ms (14.6% of total)

ival-add: 11.0ms (11.5% of total)

ival-pow: 7.0ms (7.3% of total)

adjust: 6.0ms (6.3% of total)

ival-neg: 6.0ms (6.3% of total)

ival-pow2: 4.0ms (4.2% of total)

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

exact: 1.0ms (1% of total)

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

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

series31.0ms (0.5%)

Memory

-3.6MiB live, 47.2MiB allocated; 14ms collecting garbage

Counts

22 → 204

Calls

Call 1

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

Outputs
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (pow (* 2 im) 1/4)))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* 1/4 (* (pow (/ 2 (pow im 3)) 1/4) re)) (pow (* 2 im) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* re (+ (* 1/32 (* (pow (/ 2 (pow im 7)) 1/4) re)) (* 1/4 (pow (/ 2 (pow im 3)) 1/4)))) (pow (* 2 im) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* re (+ (* 1/4 (pow (/ 2 (pow im 3)) 1/4)) (* re (+ (* -5/128 (* (pow (/ 2 (pow im 11)) 1/4) re)) (* 1/32 (pow (/ 2 (pow im 7)) 1/4)))))) (pow (* 2 im) 1/4))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#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 (/ (* (neg im) im) re) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#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 (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) (pow re 2))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (+ (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/24576 (pow im 6)) (+ (* 1/2880 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/1536 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))) (pow re 6)) (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* (+ (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 (+ (* (+ (/ 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 (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 4))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 (+ 4 (/ (pow im 2) (pow re 2)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (+ (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/1536 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/24576 (pow im 6)) (* 1/2880 (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))))))) (pow re 6)) (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (+ (* im im) (* re re))) 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 (* (+ (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 (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (pow (* 4 re) 1/4)))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* 1/16 (* (pow (/ 4 (pow re 7)) 1/4) (pow im 2))) (pow (* 4 re) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* (pow im 2) (+ (* -11/512 (* (pow (/ 4 (pow re 15)) 1/4) (pow im 2))) (* 1/16 (pow (/ 4 (pow re 7)) 1/4)))) (pow (* 4 re) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/16 (pow (/ 4 (pow re 7)) 1/4)) (* (pow im 2) (+ (* -11/512 (pow (/ 4 (pow re 15)) 1/4)) (* 95/8192 (* (pow (/ 4 (pow re 23)) 1/4) (pow im 2))))))) (pow (* 4 re) 1/4))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* (+ (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 (+ (* (+ (/ 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 (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/384 (pow re 3)) (+ (* 1/32 (* re (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/24 (+ (* -3 (pow re 3)) (* 2 (pow re 3))))))) (pow im 3)) (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* (+ (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 (+ (* (+ (/ 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 (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ 1 (pow im 2))) (/ 1 (pow re 2))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) im)) (* 1/4 (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/384 (pow re 3)) (+ (* 1/32 (* re (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/24 (+ (* -3 (pow re 3)) (* 2 (pow re 3))))))) im)) (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2)))))) im)) (* 1/4 (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* (+ (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 (+ (* (+ (/ 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)))))

Calls

6 calls:

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

simplify278.0ms (4.9%)

Memory

-7.6MiB live, 226.2MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1060	8611
1	3255	8240
0	8076	7053

Stop Event

1×	iter limit
1×	node limit

Counts

204 → 204

Calls

Call 1

Inputs
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (pow (* 2 im) 1/4)))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* 1/4 (* (pow (/ 2 (pow im 3)) 1/4) re)) (pow (* 2 im) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* re (+ (* 1/32 (* (pow (/ 2 (pow im 7)) 1/4) re)) (* 1/4 (pow (/ 2 (pow im 3)) 1/4)))) (pow (* 2 im) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* re (+ (* 1/4 (pow (/ 2 (pow im 3)) 1/4)) (* re (+ (* -5/128 (* (pow (/ 2 (pow im 11)) 1/4) re)) (* 1/32 (pow (/ 2 (pow im 7)) 1/4)))))) (pow (* 2 im) 1/4))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#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 (/ (* (neg im) im) re) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#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 (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) (pow re 2))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (+ (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/24576 (pow im 6)) (+ (* 1/2880 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/1536 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))) (pow re 6)) (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* (+ (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 (+ (* (+ (/ 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 (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 4))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 (+ 4 (/ (pow im 2) (pow re 2)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (+ (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/1536 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/24576 (pow im 6)) (* 1/2880 (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))))))) (pow re 6)) (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (+ (* im im) (* re re))) 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 (* (+ (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 (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (pow (* 4 re) 1/4)))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* 1/16 (* (pow (/ 4 (pow re 7)) 1/4) (pow im 2))) (pow (* 4 re) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* (pow im 2) (+ (* -11/512 (* (pow (/ 4 (pow re 15)) 1/4) (pow im 2))) (* 1/16 (pow (/ 4 (pow re 7)) 1/4)))) (pow (* 4 re) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/16 (pow (/ 4 (pow re 7)) 1/4)) (* (pow im 2) (+ (* -11/512 (pow (/ 4 (pow re 15)) 1/4)) (* 95/8192 (* (pow (/ 4 (pow re 23)) 1/4) (pow im 2))))))) (pow (* 4 re) 1/4))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* (+ (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 (+ (* (+ (/ 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 (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/384 (pow re 3)) (+ (* 1/32 (* re (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/24 (+ (* -3 (pow re 3)) (* 2 (pow re 3))))))) (pow im 3)) (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* (+ (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 (+ (* (+ (/ 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 (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ 1 (pow im 2))) (/ 1 (pow re 2))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) im)) (* 1/4 (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/384 (pow re 3)) (+ (* 1/32 (* re (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/24 (+ (* -3 (pow re 3)) (* 2 (pow re 3))))))) im)) (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2)))))) im)) (* 1/4 (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* (+ (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 (+ (* (+ (/ 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)))))

Outputs
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (fma.f64 (fma.f64 (.f64 (.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)))) re (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (fma.f64 re (/.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 im im)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))) re (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/32 binary64))) re)) re (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (pow (* 2 im) 1/4)))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/4 binary64)))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* 1/4 (* (pow (/ 2 (pow im 3)) 1/4) re)) (pow (* 2 im) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (fma.f64 (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/4 binary64)) re) #s(literal 1/4 binary64) (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/4 binary64))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* re (+ (* 1/32 (* (pow (/ 2 (pow im 7)) 1/4) re)) (* 1/4 (pow (/ 2 (pow im 3)) 1/4)))) (pow (* 2 im) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (fma.f64 (fma.f64 (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 7 binary64))) #s(literal 1/4 binary64)) re) #s(literal 1/32 binary64) (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/4 binary64)) #s(literal 1/4 binary64))) re (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/4 binary64))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* re (+ (* 1/4 (pow (/ 2 (pow im 3)) 1/4)) (* re (+ (* -5/128 (* (pow (/ 2 (pow im 11)) 1/4) re)) (* 1/32 (pow (/ 2 (pow im 7)) 1/4)))))) (pow (* 2 im) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (fma.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 11 binary64))) #s(literal 1/4 binary64)) re) #s(literal -5/128 binary64) (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 7 binary64))) #s(literal 1/4 binary64)) #s(literal 1/32 binary64))) re (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/4 binary64)) #s(literal 1/4 binary64))) re (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/4 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal 2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal 2 binary64) (+.f64 re im)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (.f64 #s(literal 2 binary64) im)))
#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) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64))))
#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) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#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) (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#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)) 1/2) (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/32 binary64))) re)) re (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#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)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#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)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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)) (fma.f64 (fma.f64 #s(literal 1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/16 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (.f64 #s(literal 1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))))) re)) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal 2 binary64) im))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal 2 binary64) (+.f64 re im)))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (*.f64 #s(literal 2 binary64) 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (.f64 #s(literal 2 binary64) im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) im)
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (+.f64 re im))
#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) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) 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))) 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 (/ (* (neg im) im) re) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (/ (* (neg im) im) re) (/.f64 (*.f64 (neg.f64 im) im) re))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 #s(literal 2 binary64) im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 #s(literal 2 binary64) (+.f64 re im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ 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 (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) (/.f64 (*.f64 im im) re))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) (/.f64 (fma.f64 (.f64 re re) #s(literal 4 binary64) (.f64 im im)) re))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (+ (* (/ im re) (/ im re)) 4) (*.f64 (/.f64 im re) (/.f64 im re)))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) (pow re 2))))
#s(approx (+ (* (/ im re) (/ im re)) 4) (/.f64 (fma.f64 (.f64 re re) #s(literal 4 binary64) (.f64 im im)) (*.f64 re re)))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -5/64 binary64) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))) re))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))))) re))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))))) re))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (fma.f64 (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64)))) (.f64 im im)) (*.f64 re re)) #s(literal 1/16 binary64) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (+.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64)))) (.f64 im im)) (.f64 re re)) #s(literal 1/16 binary64) (/.f64 (.f64 (fma.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) #s(literal 1/96 binary64) (.f64 #s(literal 1/512 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))))) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (+ (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/24576 (pow im 6)) (+ (* 1/2880 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/1536 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))) (pow re 6)) (/ (* (exp (* 1/4 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4)))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (+.f64 (fma.f64 (/.f64 #s(literal 1/16 binary64) re) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64)))) (.f64 im im)) re) (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64)))) (+.f64 (/.f64 (fma.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/24576 binary64) (fma.f64 (.f64 #s(literal 1/1536 binary64) (.f64 im im)) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/2 binary64)) #s(literal 1/2880 binary64)))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (fma.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) #s(literal 1/96 binary64) (.f64 #s(literal 1/512 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64)))))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (.f64 (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 im re) (/.f64 im re) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 4 binary64)) re))
#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) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#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) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))) re))
#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) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))))) re))
#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)) 1/2) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))))) re))
#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)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#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)) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#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)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (.f64 (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 4 binary64)) re))
#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 (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 im re) (/.f64 im re) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 4 binary64)) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 #s(literal 2 binary64) 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) (.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) #s(literal 2 binary64)) re))
#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) (.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal -2 binary64)) re))
#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))) 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 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal -2 binary64)) re))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (/.f64 (*.f64 re re) 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)) (.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) (.f64 re 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) re) (+ im im)) (.f64 (fma.f64 (/.f64 im (.f64 re re)) #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im))) (*.f64 re re)))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) (*.f64 #s(literal 4 binary64) re))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 4))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(literal 4 binary64))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 (+ 4 (/ (pow im 2) (pow re 2)))))
#s(approx (+ (* (/ im re) (/ im re)) 4) (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) #s(literal 1/8 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (fma.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 re) (.f64 (.f64 #s(literal 1/16 binary64) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (fma.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 re) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64)))) #s(literal 9/128 binary64))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (fma.f64 #s(literal 1/1024 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (*.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (fma.f64 (/.f64 #s(literal -1/16 binary64) re) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 im im)) re) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (+.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) re) (/.f64 (.f64 im im) re)) #s(literal -1/16 binary64) (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (/.f64 (fma.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) #s(literal 1/96 binary64) (.f64 #s(literal 1/512 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (+ (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/1536 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/24576 (pow im 6)) (* 1/2880 (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))))))) (pow re 6)) (/ (* (exp (* 1/4 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/512 (pow im 4)) (* 1/96 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4)))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (+.f64 (fma.f64 (/.f64 #s(literal -1/16 binary64) re) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 im im)) re) (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/1536 binary64) (.f64 im im)) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) (fma.f64 (fma.f64 (/.f64 #s(literal -720 binary64) im) (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) im) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64))) #s(literal 1/2880 binary64) (.f64 #s(literal -1/24576 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (fma.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) #s(literal 1/96 binary64) (.f64 #s(literal 1/512 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64)))))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 im im)) (neg.f64 re)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (+ (* im im) (* re re))) re)) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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))) (neg.f64 re)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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)))) (neg.f64 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) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))
#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) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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)) 1/2) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (fma.f64 #s(literal 1/1024 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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)) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (.f64 (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) im) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (/.f64 (*.f64 (neg.f64 im) im) 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 im im)) (neg.f64 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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))) (neg.f64 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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)))) (neg.f64 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) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) 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) (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (.f64 (.f64 im im) #s(literal 1/2 binary64))) (neg.f64 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) (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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)))) (neg.f64 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))) re) (/.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 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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))))) (neg.f64 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 (+ (* (+ (/ re im) 2) re) (+ im im)) (.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 im re) #s(literal -2 binary64)) re) #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) im)) (.f64 re re)))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) (.f64 (neg.f64 re) (fma.f64 (/.f64 #s(literal -1 binary64) re) (/.f64 (.f64 im im) re) #s(literal -4 binary64))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (fma.f64 (fma.f64 (.f64 #s(literal -5/64 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 7 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 21/512 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 11 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 7 binary64)))) #s(literal -5/64 binary64))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (.f64 (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 re re)))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (pow (* 4 re) 1/4)))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/4 binary64)))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* 1/16 (* (pow (/ 4 (pow re 7)) 1/4) (pow im 2))) (pow (* 4 re) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (fma.f64 (.f64 (pow.f64 (/.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 7 binary64))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)) (.f64 im im) (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/4 binary64))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* (pow im 2) (+ (* -11/512 (* (pow (/ 4 (pow re 15)) 1/4) (pow im 2))) (* 1/16 (pow (/ 4 (pow re 7)) 1/4)))) (pow (* 4 re) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (fma.f64 (fma.f64 (.f64 (pow.f64 (/.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 15 binary64))) #s(literal 1/4 binary64)) #s(literal -11/512 binary64)) (.f64 im im) (.f64 (pow.f64 (/.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 7 binary64))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64))) (.f64 im im) (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/4 binary64))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/16 (pow (/ 4 (pow re 7)) 1/4)) (* (pow im 2) (+ (* -11/512 (pow (/ 4 (pow re 15)) 1/4)) (* 95/8192 (* (pow (/ 4 (pow re 23)) 1/4) (pow im 2))))))) (pow (* 4 re) 1/4))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 95/8192 binary64) (pow.f64 (/.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 23 binary64))) #s(literal 1/4 binary64))) (.f64 im im) (.f64 (pow.f64 (/.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 15 binary64))) #s(literal 1/4 binary64)) #s(literal -11/512 binary64))) (.f64 im im) (.f64 (pow.f64 (/.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 7 binary64))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64))) (.f64 im im) (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/4 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im) (/.f64 #s(literal 1 binary64) re)) (.f64 im im) (*.f64 #s(literal 4 binary64) 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) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 re) #s(literal 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 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) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (* (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)) 1/2) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (.f64 (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 re re)))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (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)) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#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)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (+ (* 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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (.f64 (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 re re)))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (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 (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (.f64 im im) (*.f64 #s(literal 4 binary64) 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im) (/.f64 #s(literal 1 binary64) re)) (.f64 im im) (*.f64 #s(literal 4 binary64) 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) (fma.f64 (/.f64 (.f64 im im) re) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) 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) (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 (+ (* 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))) re) (fma.f64 (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (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 (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (/.f64 (*.f64 re (fma.f64 #s(literal 2 binary64) im re)) 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) re) (+ im im)) (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (+.f64 re im)) im (.f64 re re)) im))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (.f64 (fma.f64 (.f64 (/.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (/.f64 re #s(literal 2 binary64)) (/.f64 re (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (fma.f64 (*.f64 re (/.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) im)) #s(literal 1/4 binary64) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (+.f64 (fma.f64 (.f64 re (/.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) im)) #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) #s(literal 1/8 binary64) (.f64 (.f64 re re) #s(literal 1/32 binary64))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))) (*.f64 im im))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/384 (pow re 3)) (+ (* 1/32 (* re (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/24 (+ (* -3 (pow re 3)) (* 2 (pow re 3))))))) (pow im 3)) (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2)))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (+.f64 (fma.f64 (.f64 re (/.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) im)) #s(literal 1/4 binary64) (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) (+.f64 (/.f64 (fma.f64 #s(literal 1/384 binary64) (pow.f64 re #s(literal 3 binary64)) (fma.f64 (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1 binary64)) #s(literal 1/24 binary64) (.f64 (.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) re) #s(literal 1/32 binary64)))) (pow.f64 im #s(literal 3 binary64))) (/.f64 (fma.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) #s(literal 1/8 binary64) (.f64 (.f64 re re) #s(literal 1/32 binary64))) (.f64 im im))))) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 re im) #s(literal 1 binary64)) (.f64 (/.f64 re im) (/.f64 re im))) im))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) 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) (/.f64 re im) (.f64 (/.f64 re im) #s(literal 2 binary64)))) #s(literal -2 binary64)) im))
#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) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#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) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#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)) 1/2) (.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#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)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#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)) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 re im) #s(literal 1 binary64)) (.f64 (/.f64 re im) (/.f64 re im))) im))
#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 (* 2 (+ (sqrt (+ (* im im) (* re re))) 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) (/.f64 re im) (.f64 (/.f64 re im) #s(literal 2 binary64)))) #s(literal -2 binary64)) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) 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) (.f64 (+.f64 (fma.f64 (.f64 (/.f64 re im) (/.f64 re im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) 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))) 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 im) (/.f64 re im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re 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)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 re im) #s(literal 1 binary64)) (.f64 (/.f64 re im) (/.f64 re im))) im))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (* (+ (* (/ im re) (/ im re)) 4) re) (.f64 (fma.f64 (/.f64 re (.f64 im im)) #s(literal 4 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))
#s(approx (+ (* (/ im re) (/ im re)) 4) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ 1 (pow im 2))) (/ 1 (pow re 2))))))
#s(approx (+ (* (/ im re) (/ im re)) 4) (.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 re re)) (/.f64 #s(literal 4 binary64) (.f64 im im))) (.f64 im im)))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (.f64 (.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -1 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))) (neg.f64 im)))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))))) (neg.f64 im)))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) (.f64 (fma.f64 (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (fma.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))))) (neg.f64 im)))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 im)))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 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 (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) (neg.f64 im)))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (pow (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) 2) 1/2) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (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 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) (neg.f64 im)))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/4 (/ (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (fma.f64 (*.f64 re (/.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) im)) #s(literal -1/4 binary64) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2))))) im)) (* 1/4 (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) re) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) #s(literal 1/8 binary64) (.f64 (.f64 re re) #s(literal 1/32 binary64)))) (neg.f64 im))) im) #s(literal -1 binary64) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) #s(hole binary64 (+ (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/384 (pow re 3)) (+ (* 1/32 (* re (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/24 (+ (* -3 (pow re 3)) (* 2 (pow re 3))))))) im)) (* (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/32 (pow re 2)) (* 1/8 (+ (* -1 (pow re 2)) (pow re 2)))))) im)) (* 1/4 (* re (exp (* 1/4 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) re) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) (/.f64 (fma.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) #s(literal 1/8 binary64) (.f64 (.f64 re re) #s(literal 1/32 binary64))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/384 binary64) (pow.f64 re #s(literal 3 binary64)) (fma.f64 (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1 binary64)) #s(literal 1/24 binary64) (.f64 (.f64 (.f64 #s(literal 0 binary64) (*.f64 re re)) re) #s(literal 1/32 binary64))))) (neg.f64 im))) (neg.f64 im))) im) #s(literal -1 binary64) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)) (neg.f64 im)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (.f64 (neg.f64 re) re) im)) im) #s(literal -1 binary64) #s(literal 2 binary64)) (neg.f64 im)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (.f64 re re)) (neg.f64 im))) (neg.f64 im)) #s(literal -2 binary64)) (neg.f64 im)))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 im)))
#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) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) (neg.f64 im)))
#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)) 1/2) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (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 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) (neg.f64 im)))
#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)) (.f64 (.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -1 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#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)) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 im)))
#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)) (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 im)))
#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 (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (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 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 im)))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)) (neg.f64 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (.f64 (neg.f64 re) re) im)) im) #s(literal -1 binary64) #s(literal 2 binary64)) (neg.f64 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 (* 2 (+ (sqrt (+ (* im im) (* re re))) re)) (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (.f64 re re)) (neg.f64 im))) (neg.f64 im)) #s(literal -2 binary64)) (neg.f64 im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 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) (*.f64 (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) (neg.f64 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) (.f64 (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)) (neg.f64 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))) re) (.f64 (+.f64 (/.f64 (+.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (.f64 (*.f64 re re) #s(literal 1/2 binary64))) (neg.f64 im)) re) (neg.f64 im)) #s(literal 1 binary64)) (neg.f64 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)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal -2 binary64)) (neg.f64 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (.f64 re re) im)) im) #s(literal -1 binary64) #s(literal -2 binary64)) (neg.f64 im)))

rewrite33.0ms (0.6%)

Memory

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

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	41	279
0	69	270
0	222	270

Stop Event

1×	iter limit
1×	iter limit
1×	iter limit
1×	unsound
1×	iter limit

Counts

22 → 65

Calls

Call 1

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

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

eval40.0ms (0.7%)

Memory: -8.5MiB live, 76.8MiB allocated; 13ms collecting garbage
Compiler: Compiled 9 742 to 1 380 computations (85.8% saved)

prune60.0ms (1.1%)

Memory

-20.0MiB live, 39.3MiB allocated; 6ms collecting garbage

Pruning

18 alts after pruning (10 fresh and 8 done)

	Pruned	Kept	Total
New	241	5	246
Fresh	1	5	6
Picked	1	4	5
Done	0	4	4
Total	243	18	261

Accuracy

92.4%

Counts

261 → 18

Alt Table

Click to see full alt table

Status	Accuracy	Program
	14.9%	(.f64 (pow.f64 (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* im im) (* re re))) re)) (/.f64 (*.f64 (neg.f64 im) im) re)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) #s(literal 1/2 binary64))
	49.7%	(.f64 (pow.f64 (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) #s(literal 1/2 binary64))
	16.5%	(.f64 (pow.f64 #s(approx (pow ( 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (*.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re))))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
✓	78.1%	(.f64 (sqrt.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	52.4%	(.f64 (sqrt.f64 (.f64 #s(approx (+ (sqrt (+ (* im im) (* re re))) re) (+.f64 re im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	50.1%	(.f64 (sqrt.f64 (.f64 #s(approx (+ (sqrt (+ (* im im) (* re re))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	50.3%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
	26.1%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64))
	10.4%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (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))) (neg.f64 re)))) #s(literal 1/2 binary64))
	11.7%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 im im)) (neg.f64 re)))) #s(literal 1/2 binary64))
✓	14.4%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 (neg.f64 im) im) re))) #s(literal 1/2 binary64))
	50.3%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im))) #s(literal 1/2 binary64))
✓	26.9%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))) #s(literal 1/2 binary64))
	16.7%	(.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))
✓	49.8%	(.f64 #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))) #s(literal 1/2 binary64))
	37.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
✓	6.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓	26.8%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))

Compiler

Compiled 1 248 to 538 computations (56.9% saved)

regimes74.0ms (1.3%)

Memory

31.8MiB live, 77.1MiB allocated; 2ms collecting garbage

Counts

35 → 2

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes30.0ms (0.5%)

Memory

-40.0MiB live, 50.5MiB allocated; 6ms collecting garbage

Counts

34 → 2

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

9.0ms

re

8.0ms

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

8.0ms

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

Results

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

Compiler

Compiled 29 to 24 computations (17.2% saved)

regimes88.0ms (1.5%)

Memory

6.1MiB live, 74.4MiB allocated; 72ms collecting garbage

Counts

24 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
65.0%	3	`(*.f64 im im)`
65.0%	3	`im`
69.6%	3	`re`
70.0%	4	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
70.0%	4	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
69.7%	4	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
69.7%	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))))`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes7.0ms (0.1%)

Memory

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

Counts

20 → 4

Calls

Call 1

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

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

Calls

1 calls:

5.0ms

re

Results

Accuracy	Segments	Branch
71.1%	4	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes9.0ms (0.2%)

Memory

-36.4MiB live, 10.8MiB allocated; 6ms collecting garbage

Counts

17 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

8.0ms

re

Results

Accuracy	Segments	Branch
69.5%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes5.0ms (0.1%)

Memory

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

Counts

13 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

4.0ms

re

Results

Accuracy	Segments	Branch
69.5%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes4.0ms (0.1%)

Memory

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

Counts

12 → 3

Calls

Call 1

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

Outputs

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

Calls

1 calls:

4.0ms

re

Results

Accuracy	Segments	Branch
69.4%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes14.0ms (0.3%)

Memory

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

Counts

9 → 3

Calls

Call 1

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

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

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

Calls

5 calls:

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

Results

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

Compiler

Compiled 51 to 40 computations (21.6% saved)

regimes3.0ms (0%)

Memory

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

Counts

6 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

2.0ms

re

Results

Accuracy	Segments	Branch
63.5%	2	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes51.0ms (0.9%)

Memory

-23.2MiB live, 22.8MiB allocated; 3ms collecting garbage

Counts

2 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

bsearch46.0ms (0.8%)

Memory

-9.0MiB live, 86.2MiB allocated; 15ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
43.0ms	-3.932964643851278e+153	-2.0024675303022254e+142

Samples

17.0ms	29×	3	valid
8.0ms	39×	2	valid
6.0ms	41×	1	valid
4.0ms	51×	0	valid

Compiler

Compiled 428 to 374 computations (12.6% saved)

Precisions

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

ival-hypot: 12.0ms (41.2% of total)

ival-mult: 9.0ms (30.9% of total)

adjust: 3.0ms (10.3% of total)

ival-add: 2.0ms (6.9% of total)

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

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

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

exact: 0.0ms (0% of total)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0	7.884688492294299e-132

Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch45.0ms (0.8%)

Memory

37.9MiB live, 81.6MiB allocated; 4ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
17.0ms	2.1807137683747304e+20	1.0974060173643239e+30
23.0ms	-3.932964643851278e+153	-2.0024675303022254e+142

Samples

12.0ms	186×	0	valid
7.0ms	20×	2	valid
6.0ms	22×	3	valid
4.0ms	28×	1	valid

Compiler

Compiled 1 018 to 744 computations (26.9% saved)

Precisions

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

ival-hypot: 8.0ms (36.6% of total)

ival-mult: 7.0ms (32% of total)

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

adjust: 2.0ms (9.1% of total)

ival-add: 2.0ms (9.1% of total)

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

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

exact: 0.0ms (0% of total)

bsearch65.0ms (1.1%)

Memory

-15.8MiB live, 76.0MiB allocated; 7ms collecting garbage

Algorithm

3×	binary-search

Stop Event

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

Steps

Time	Left	Right
17.0ms	9.544623077858846e+103	1.2203411484173855e+110
43.0ms	1.0390855031508557e-74	2.640316510968506e-70
1.0ms	-3.932964643851278e+153	-2.0024675303022254e+142

Samples

47.0ms

272×

valid

Compiler

Compiled 1 106 to 865 computations (21.8% saved)

Precisions

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

ival-hypot: 33.0ms (81.7% of total)

ival-mult: 3.0ms (7.4% of total)

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

ival-add: 1.0ms (2.5% of total)

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

adjust: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

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

bsearch3.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.1807137683747304e+20	1.0974060173643239e+30
1.0ms	-3.932964643851278e+153	-2.0024675303022254e+142

Compiler

Compiled 938 to 714 computations (23.9% saved)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.1807137683747304e+20	1.0974060173643239e+30
1.0ms	-3.932964643851278e+153	-2.0024675303022254e+142

Compiler

Compiled 938 to 714 computations (23.9% saved)

bsearch25.0ms (0.4%)

Memory

-7.7MiB live, 43.9MiB allocated; 14ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
22.0ms	2.1807137683747304e+20	1.0974060173643239e+30
1.0ms	-3.932964643851278e+153	-2.0024675303022254e+142

Samples

16.0ms

144×

valid

Compiler

Compiled 758 to 614 computations (19% saved)

Precisions

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

ival-sqrt: 7.0ms (56% of total)

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

ival-mult: 2.0ms (16% of total)

ival-add: 1.0ms (8% of total)

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

adjust: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

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

bsearch81.0ms (1.4%)

Memory

-5.5MiB live, 41.3MiB allocated; 3ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.1807137683747304e+20	1.0974060173643239e+30
77.0ms	-7.404438936192161e+229	-2.705870305715433e+228

Samples

52.0ms	16×	0	valid
8.0ms	40×	2	valid
7.0ms	25×	3	valid
4.0ms	31×	1	valid

Compiler

Compiled 613 to 507 computations (17.3% saved)

Precisions

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

ival-mult: 54.0ms (80.4% of total)

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

adjust: 3.0ms (4.5% of total)

ival-add: 2.0ms (3% of total)

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

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

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

exact: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.1807137683747304e+20	1.0974060173643239e+30

Compiler

Compiled 368 to 304 computations (17.4% saved)

simplify83.0ms (1.4%)

Memory

-11.2MiB live, 79.8MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	120	600
1	158	600
2	239	600
3	375	600
4	679	600
5	3455	600

Stop Event

1×	node limit

Calls

Call 1

Inputs
(if (<=.f64 re #s(literal -31000000000000002131548697454084451867731000014956886411981211692219829533902282999662576752345068184060204044864827021517034025765627773149990686294016 binary64)) (.f64 (pow.f64 #s(approx (pow ( 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re))))) #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)))
(if (<=.f64 (.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 0 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(if (<=.f64 re #s(literal -6000000000000000248432939182427692818100624028184179935367669204583630813967171088177433668396288574871737718478838813024662997120339390456701055401984 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) (if (<=.f64 re #s(literal 142000000000000004194304 binary64)) (.f64 (sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))) #s(literal 1/2 binary64))))
(if (<=.f64 re #s(literal -6000000000000000248432939182427692818100624028184179935367669204583630813967171088177433668396288574871737718478838813024662997120339390456701055401984 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) (if (<=.f64 re #s(literal 4351578318585633/62165404551223330269422781018352605012557018849668464680057997111644937126566671941632 binary64)) (.f64 (sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64)) (if (<=.f64 re #s(literal 120000000000000006165803845326852703732165351296751002642315320894463753258191920134015444923344800642355953664 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))) #s(approx ( 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))))
(if (<=.f64 re #s(literal -6000000000000000248432939182427692818100624028184179935367669204583630813967171088177433668396288574871737718478838813024662997120339390456701055401984 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) (if (<=.f64 re #s(literal 142000000000000004194304 binary64)) (.f64 (sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64)) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 re #s(literal -6000000000000000248432939182427692818100624028184179935367669204583630813967171088177433668396288574871737718478838813024662997120339390456701055401984 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) (if (<=.f64 re #s(literal 142000000000000004194304 binary64)) (.f64 (sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im))) #s(literal 1/2 binary64)) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 re #s(literal -6000000000000000248432939182427692818100624028184179935367669204583630813967171088177433668396288574871737718478838813024662997120339390456701055401984 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) (if (<=.f64 re #s(literal 609999999999999981167373713408 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(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 re #s(literal -5700000000000000276664257846210306504707471800721718006195418587722290144754782708142546142658151503491764486835652441876409384760956908620331464386757687433612556928493936903990964227492341222636302673522429708771934503438385152 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))) (if (<=.f64 re #s(literal 142000000000000004194304 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 re #s(literal 142000000000000004194304 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))

Outputs
(if (<=.f64 re #s(literal -31000000000000002131548697454084451867731000014956886411981211692219829533902282999662576752345068184060204044864827021517034025765627773149990686294016 binary64)) (.f64 (pow.f64 #s(approx (pow ( 2 (+ (sqrt (+ (* im im) (* re re))) re)) 1/4) (pow.f64 (exp.f64 #s(literal 1/4 binary64)) (+.f64 (log.f64 (.f64 im im)) (log.f64 (/.f64 #s(literal -1 binary64) re))))) #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)))
(if (<=.f64 (.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 0 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(if (<=.f64 re #s(literal -6000000000000000248432939182427692818100624028184179935367669204583630813967171088177433668396288574871737718478838813024662997120339390456701055401984 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) (if (<=.f64 re #s(literal 142000000000000004194304 binary64)) (.f64 (sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))) #s(literal 1/2 binary64))))
(if (<=.f64 re #s(literal -6000000000000000248432939182427692818100624028184179935367669204583630813967171088177433668396288574871737718478838813024662997120339390456701055401984 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) (if (<=.f64 re #s(literal 4351578318585633/62165404551223330269422781018352605012557018849668464680057997111644937126566671941632 binary64)) (.f64 (sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64)) (if (<=.f64 re #s(literal 120000000000000006165803845326852703732165351296751002642315320894463753258191920134015444923344800642355953664 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))) #s(approx ( 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))))
(if (<=.f64 re #s(literal -6000000000000000248432939182427692818100624028184179935367669204583630813967171088177433668396288574871737718478838813024662997120339390456701055401984 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) (if (<=.f64 re #s(literal 142000000000000004194304 binary64)) (.f64 (sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64)) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 re #s(literal -6000000000000000248432939182427692818100624028184179935367669204583630813967171088177433668396288574871737718478838813024662997120339390456701055401984 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) (if (<=.f64 re #s(literal 142000000000000004194304 binary64)) (.f64 (sqrt.f64 #s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im))) #s(literal 1/2 binary64)) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 re #s(literal -6000000000000000248432939182427692818100624028184179935367669204583630813967171088177433668396288574871737718478838813024662997120339390456701055401984 binary64)) (.f64 (sqrt.f64 #s(approx ( (+ (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) (if (<=.f64 re #s(literal 609999999999999981167373713408 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(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 re #s(literal -5700000000000000276664257846210306504707471800721718006195418587722290144754782708142546142658151503491764486835652441876409384760956908620331464386757687433612556928493936903990964227492341222636302673522429708771934503438385152 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))) (if (<=.f64 re #s(literal 142000000000000004194304 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 re #s(literal 142000000000000004194304 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))

derivations310.0ms (5.4%)

Memory

-0.8MiB live, 251.5MiB allocated; 25ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 600 to 123 computations (79.5% saved)

preprocess8.0ms (0.1%)

Memory: 12.7MiB live, 12.7MiB allocated; 0ms collecting garbage
Remove: (abs im)
Compiler: Compiled 120 to 90 computations (25% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze108.0ms (1.9%)

sample1.5s (26.8%)

explain285.0ms (5%)

preprocess237.0ms (4.2%)

eval0.0ms (0%)

prune0.0ms (0%)

simplify165.0ms (2.9%)

localize51.0ms (0.9%)

series44.0ms (0.8%)

simplify178.0ms (3.1%)

rewrite58.0ms (1%)

eval81.0ms (1.4%)

prune12.0ms (0.2%)

simplify117.0ms (2%)

localize105.0ms (1.8%)

series27.0ms (0.5%)

simplify187.0ms (3.3%)

rewrite95.0ms (1.7%)

eval49.0ms (0.9%)

prune14.0ms (0.3%)

simplify139.0ms (2.4%)

localize135.0ms (2.4%)

series67.0ms (1.2%)

simplify234.0ms (4.1%)

rewrite38.0ms (0.7%)

eval39.0ms (0.7%)

prune38.0ms (0.7%)

simplify130.0ms (2.3%)

localize150.0ms (2.6%)

series31.0ms (0.5%)

simplify278.0ms (4.9%)

rewrite33.0ms (0.6%)

eval40.0ms (0.7%)

prune60.0ms (1.1%)

regimes74.0ms (1.3%)

regimes30.0ms (0.5%)

regimes88.0ms (1.5%)

regimes7.0ms (0.1%)

regimes9.0ms (0.2%)

regimes5.0ms (0.1%)

regimes4.0ms (0.1%)

regimes14.0ms (0.3%)

regimes3.0ms (0%)

regimes51.0ms (0.9%)

bsearch46.0ms (0.8%)

bsearch0.0ms (0%)

bsearch45.0ms (0.8%)

bsearch65.0ms (1.1%)

bsearch3.0ms (0.1%)

bsearch3.0ms (0%)

bsearch25.0ms (0.4%)

bsearch81.0ms (1.4%)

bsearch1.0ms (0%)

simplify83.0ms (1.4%)

derivations310.0ms (5.4%)

preprocess8.0ms (0.1%)

end0.0ms (0%)

Profiling