Metrics for math.sqrt on complex, real part

start0.0ms (0%)

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

analyze113.0ms (3%)

Memory

0.6MiB live, 189.4MiB allocated; 37ms 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.3s (35.1%)

Memory

37.6MiB live, 2 001.7MiB allocated; 321ms collecting garbage

Samples

508.0ms	6 243×	0	valid
271.0ms	828×	2	valid
152.0ms	446×	3	valid
108.0ms	739×	1	valid

Precisions

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

ival-hypot: 410.0ms (52.7% of total)

ival-mult!: 131.0ms (16.9% of total)

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

adjust: 66.0ms (8.5% of total)

ival-add!: 40.0ms (5.1% of total)

Bogosity

explain181.0ms (4.9%)

Memory

-22.7MiB live, 395.7MiB allocated; 38ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
119	-	2	(-2.6282694281861274e-190 1.7457199574068832e-159)	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`
38	-	0	-	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
24	-	0	-	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
0	-	0	-	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
0	-	0	-	`(*.f64 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	110	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	110
↳	`(*.f64 re re)`	overflow	71
↳	`(*.f64 im im)`	overflow	57
`+.f64`	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	cancellation	38	0
`sqrt.f64`	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	uflow-rescue	23	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	7
↳	`(*.f64 im im)`	underflow	60
↳	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	underflow	11
↳	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	underflow	34
↳	`(*.f64 re re)`	underflow	64
↳	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	underflow	34
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	uflow-rescue	7	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	7
↳	`(*.f64 re re)`	underflow	64
↳	`(*.f64 im im)`	underflow	60
`sqrt.f64`	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	oflow-rescue	1	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	110
↳	`(*.f64 re re)`	overflow	71
↳	`(*.f64 im im)`	overflow	57
↳	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	overflow	1

Confusion

	Predicted +	Predicted -
+	150	1
-	0	105

Precision

1.0

Recall

0.9933774834437086

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	150	0	1
-	0	0	105

Precision?

1.0

Recall?

0.9933774834437086

Freqs

test

number	freq
0	106
1	121
2	29

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

41.0ms	374×	0	valid
15.0ms	60×	2	valid
13.0ms	32×	3	valid
8.0ms	46×	1	valid

Compiler

Compiled 169 to 40 computations (76.3% saved)

Precisions

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

ival-hypot: 27.0ms (48.1% of total)

ival-mult!: 13.0ms (23.1% of total)

ival-sqrt: 6.0ms (10.7% of total)

adjust: 5.0ms (8.9% of total)

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

preprocess65.0ms (1.7%)

Memory

-2.9MiB live, 43.4MiB allocated; 7ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	36	92
1	117	92
2	257	90
3	448	90
4	935	90
5	3057	90
6	6611	90

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Symmetry

(abs im)

Compiler

Compiled 30 to 24 computations (20% saved)

series22.0ms (0.6%)

Memory

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

Counts

12 → 119

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite206.0ms (5.6%)

Memory

5.0MiB live, 240.8MiB allocated; 46ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	635	4546
0	646	4088
1	3837	3962
0	8213	3217

Stop Event

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

Counts

131 → 316

Calls

Call 1

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

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

eval60.0ms (1.6%)

Memory: -23.3MiB live, 79.5MiB allocated; 34ms collecting garbage
Compiler: Compiled 8 075 to 1 875 computations (76.8% saved)

prune15.0ms (0.4%)

Memory

-14.6MiB live, 32.4MiB allocated; 2ms collecting garbage

Pruning

14 alts after pruning (14 fresh and 0 done)

	Pruned	Kept	Total
New	298	14	312
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	299	14	313

Accuracy

88.8%

Counts

313 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	44.6%	(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	44.2%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
	24.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (fma.f64 im im (.f64 re re)) (.f64 (.f64 re re) re)) (+.f64 (fma.f64 im im (.f64 re re)) (-.f64 (.f64 re re) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))))))
	29.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (.f64 re re)) (.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
▶	78.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
	7.6%	(.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))))
▶	4.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
▶	50.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
	0.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
	14.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
	17.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
	42.0%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
	25.7%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
▶	48.4%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (fabs.f64 im) (sqrt.f64 im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))

Compiler

Compiled 634 to 428 computations (32.5% saved)

series40.0ms (1.1%)

Memory

31.0MiB live, 77.0MiB allocated; 7ms collecting garbage

Counts

42 → 257

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite163.0ms (4.4%)

Memory

-17.1MiB live, 224.3MiB allocated; 28ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	869	9322
0	920	7801
0	4440	7479

Stop Event

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

Counts

299 → 468

Calls

Call 1

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

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

eval31.0ms (0.8%)

Memory: 20.3MiB live, 65.6MiB allocated; 7ms collecting garbage
Compiler: Compiled 9 761 to 1 682 computations (82.8% saved)

prune14.0ms (0.4%)

Memory

-14.6MiB live, 31.4MiB allocated; 4ms collecting garbage

Pruning

14 alts after pruning (10 fresh and 4 done)

	Pruned	Kept	Total
New	282	3	285
Fresh	2	7	9
Picked	1	4	5
Done	0	0	0
Total	285	14	299

Accuracy

88.8%

Counts

299 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	44.6%	(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	44.2%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
▶	29.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (.f64 re re)) (.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
	1.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(literal 3 binary64)) (.f64 (.f64 re re) re)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (-.f64 (.f64 re re) (.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)))))))
✓	78.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
▶	7.6%	(.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))))
✓	4.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
✓	50.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
	0.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
	14.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
	17.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
	42.0%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
▶	25.7%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
▶	50.5%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 #s(approx (+ ( (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) im))

Compiler

Compiled 629 to 402 computations (36.1% saved)

series64.0ms (1.7%)

Memory

-14.5MiB live, 125.3MiB allocated; 23ms collecting garbage

Counts

34 → 407

Calls

Call 1

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

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

Calls

6 calls:

Time	Variable		Point	Expression
14.0ms	im	@	inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (+ (* (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) im) (+ (* (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) (* (sqrt (/ 2 im)) 1/2) (sqrt (/ 2 im)) (/ 2 im) 2 im 1/2 (* 1/2 (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2))) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (sqrt re) 2) (sqrt 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))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))
12.0ms	re	@	-inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (+ (* (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) im) (+ (* (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) (* (sqrt (/ 2 im)) 1/2) (sqrt (/ 2 im)) (/ 2 im) 2 im 1/2 (* 1/2 (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2))) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (sqrt re) 2) (sqrt 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))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))
7.0ms	im	@	-inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (+ (* (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) im) (+ (* (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) (* (sqrt (/ 2 im)) 1/2) (sqrt (/ 2 im)) (/ 2 im) 2 im 1/2 (* 1/2 (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2))) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (sqrt re) 2) (sqrt 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))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))
6.0ms	re	@	inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (+ (* (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) im) (+ (* (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) (* (sqrt (/ 2 im)) 1/2) (sqrt (/ 2 im)) (/ 2 im) 2 im 1/2 (* 1/2 (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2))) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (sqrt re) 2) (sqrt 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))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))
5.0ms	im	@	0	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (+ (* (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) im) (+ (* (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) (* (sqrt (/ 2 im)) 1/2) (sqrt (/ 2 im)) (/ 2 im) 2 im 1/2 (* 1/2 (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2))) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (sqrt re) 2) (sqrt 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))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))

rewrite295.0ms (8%)

Memory

9.7MiB live, 257.6MiB allocated; 105ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1379	18431
0	1421	15995
1	7363	15993
0	8583	13842

Stop Event

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

Counts

441 → 564

Calls

Call 1

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

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

eval65.0ms (1.8%)

Memory: -15.2MiB live, 84.1MiB allocated; 12ms collecting garbage
Compiler: Compiled 19 180 to 2 801 computations (85.4% saved)

prune14.0ms (0.4%)

Memory

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

Pruning

14 alts after pruning (7 fresh and 7 done)

	Pruned	Kept	Total
New	499	7	506
Fresh	5	0	5
Picked	2	3	5
Done	0	4	4
Total	506	14	520

Accuracy

88.9%

Counts

520 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	44.2%	(.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (sqrt.f64 #s(literal 2 binary64)))
✓	44.6%	(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	78.0%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))))
	44.3%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
▶	39.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(approx (- (+ (* im im) (* re re)) (* re re)) (.f64 im im)) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))))
✓	78.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
✓	7.6%	(.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))))
✓	4.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
▶	0.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
▶	17.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))))
✓	50.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
✓	25.7%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
✓	50.5%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 #s(approx (+ ( (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) im))
	47.3%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 #s(approx (+ ( (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) (.f64 (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) im))

Compiler

Compiled 527 to 365 computations (30.7% saved)

series34.0ms (0.9%)

Memory

-3.4MiB live, 43.5MiB allocated; 2ms collecting garbage

Counts

34 → 343

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite264.0ms (7.1%)

Memory

9.2MiB live, 289.7MiB allocated; 25ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1299	15108
0	1339	12366
1	7314	12360
0	8574	11871

Stop Event

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

Counts

377 → 518

Calls

Call 1

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

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

eval48.0ms (1.3%)

Memory: 0.8MiB live, 99.6MiB allocated; 12ms collecting garbage
Compiler: Compiled 16 862 to 2 307 computations (86.3% saved)

prune59.0ms (1.6%)

Memory

7.0MiB live, 53.0MiB allocated; 4ms collecting garbage

Pruning

16 alts after pruning (5 fresh and 11 done)

	Pruned	Kept	Total
New	409	4	413
Fresh	1	1	2
Picked	1	4	5
Done	0	7	7
Total	411	16	427

Accuracy

91.7%

Counts

427 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	44.2%	(.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (sqrt.f64 #s(literal 2 binary64)))
	44.3%	(.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re))) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
	39.2%	(.f64 (sqrt.f64 (/.f64 (.f64 #s(literal 2 binary64) #s(approx (- (+ (* im im) (* re re)) (* re re)) (.f64 im im))) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re))) #s(literal 1/2 binary64))
✓	44.6%	(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	78.0%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))))
✓	78.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
✓	7.6%	(.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))))
✓	4.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
✓	0.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
✓	17.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))))
	20.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (*.f64 im (/.f64 im re))))))
✓	50.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
	0.0%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))))
✓	25.7%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
✓	50.5%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 #s(approx (+ ( (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) im))
	47.3%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 #s(approx (+ ( (sqrt (* 2 (/ 1 im))) 1/2) (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/4)) (.f64 (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) im))

Compiler

Compiled 1 176 to 471 computations (59.9% saved)

regimes74.0ms (2%)

Memory

-11.8MiB live, 183.7MiB allocated; 35ms collecting garbage

Counts

29 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes68.0ms (1.8%)

Memory

-29.6MiB live, 66.6MiB allocated; 5ms collecting garbage

Counts

15 → 4

Calls

Call 1

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
63.3%	3	`(*.f64 im im)`
63.3%	3	`im`
68.7%	4	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
68.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))))`
69.0%	4	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
69.0%	4	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
78.8%	4	`re`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes4.0ms (0.1%)

Memory

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

Counts

11 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

3.0ms

re

Results

Accuracy	Segments	Branch
76.6%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes4.0ms (0.1%)

Memory

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

Counts

9 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

3.0ms

re

Results

Accuracy	Segments	Branch
74.5%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes3.0ms (0.1%)

Memory

9.9MiB live, 9.8MiB allocated; 0ms collecting garbage

Counts

8 → 3

Calls

Call 1

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

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

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

Calls

1 calls:

3.0ms

re

Results

Accuracy	Segments	Branch
69.0%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes13.0ms (0.4%)

Memory

-14.9MiB live, 32.3MiB allocated; 2ms collecting garbage

Counts

7 → 2

Calls

Call 1

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

Outputs

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

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

Calls

5 calls:

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

Results

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

Compiler

Compiled 51 to 40 computations (21.6% saved)

regimes7.0ms (0.2%)

Memory

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

Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

bsearch67.0ms (1.8%)

Memory

4.2MiB live, 51.6MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
64.0ms	-3.4146956610765515e+156	-1.3897969614855673e+152

Samples

43.0ms	32×	0	valid
7.0ms	28×	3	valid
5.0ms	29×	2	valid
4.0ms	39×	1	valid

Compiler

Compiled 370 to 246 computations (33.5% saved)

Precisions

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

ival-hypot: 47.0ms (85.1% of total)

ival-mult!: 3.0ms (5.4% of total)

adjust: 2.0ms (3.6% of total)

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

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

bsearch62.0ms (1.7%)

Memory

-8.7MiB live, 134.5MiB allocated; 11ms collecting garbage

Algorithm

3×	binary-search

Stop Event

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

Steps

Time	Left	Right
14.0ms	1.4274475743976106e+51	4.061547062681486e+55
14.0ms	8.43161259912653e-165	3.066005802236965e-157
29.0ms	-1.0755107414137809e+71	-2.8309272131187212e+63

Samples

20.0ms	331×	0	valid
8.0ms	36×	3	valid
6.0ms	26×	2	valid
5.0ms	23×	1	valid

Compiler

Compiled 1 064 to 795 computations (25.3% saved)

Precisions

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

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

ival-sqrt: 6.0ms (20.8% of total)

ival-mult!: 5.0ms (17.3% of total)

adjust: 4.0ms (13.9% of total)

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

bsearch10.0ms (0.3%)

Memory

-26.5MiB live, 20.2MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
8.0ms	7.979638103905899e+22	1.3764919157538314e+23
1.0ms	-1.0755107414137809e+71	-2.8309272131187212e+63

Samples

6.0ms

64×

valid

Compiler

Compiled 651 to 448 computations (31.2% saved)

Precisions

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

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

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

adjust: 0.0ms (0% of total)

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

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

bsearch2.0ms (0.1%)

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
0.0ms	7.979638103905899e+22	1.3764919157538314e+23
1.0ms	-1.0755107414137809e+71	-2.8309272131187212e+63

Compiler

Compiled 543 to 430 computations (20.8% saved)

bsearch21.0ms (0.6%)

Memory

-0.4MiB live, 46.9MiB allocated; 1ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
0.0ms	7.979638103905899e+22	1.3764919157538314e+23
19.0ms	-2.404404977504411e+187	-4.511826626434729e+186

Samples

5.0ms	21×	3	valid
5.0ms	21×	2	valid
4.0ms	35×	1	valid
1.0ms	19×	0	valid

Compiler

Compiled 396 to 322 computations (18.7% saved)

Precisions

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

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

adjust: 2.0ms (16.9% of total)

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

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
0.0ms	7.979638103905899e+22	1.3764919157538314e+23

Compiler

Compiled 174 to 142 computations (18.4% saved)

derivations245.0ms (6.6%)

Memory

27.1MiB live, 264.0MiB allocated; 50ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 424 to 76 computations (82.1% saved)

preprocess70.0ms (1.9%)

Memory: -24.4MiB live, 165.9MiB allocated; 14ms collecting garbage
Compiler: Compiled 1 804 to 646 computations (64.2% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze113.0ms (3%)

sample1.3s (35.1%)

explain181.0ms (4.9%)

preprocess65.0ms (1.7%)

series22.0ms (0.6%)

rewrite206.0ms (5.6%)

eval60.0ms (1.6%)

prune15.0ms (0.4%)

series40.0ms (1.1%)

rewrite163.0ms (4.4%)

eval31.0ms (0.8%)

prune14.0ms (0.4%)

series64.0ms (1.7%)

rewrite295.0ms (8%)

eval65.0ms (1.8%)

prune14.0ms (0.4%)

series34.0ms (0.9%)

rewrite264.0ms (7.1%)

eval48.0ms (1.3%)

prune59.0ms (1.6%)

regimes74.0ms (2%)

regimes68.0ms (1.8%)

regimes4.0ms (0.1%)

regimes4.0ms (0.1%)

regimes3.0ms (0.1%)

regimes13.0ms (0.4%)

regimes7.0ms (0.2%)

bsearch67.0ms (1.8%)

bsearch62.0ms (1.7%)

bsearch10.0ms (0.3%)

bsearch2.0ms (0.1%)

bsearch21.0ms (0.6%)

bsearch1.0ms (0%)

derivations245.0ms (6.6%)

preprocess70.0ms (1.9%)

end0.0ms (0%)

Profiling