Metrics for math.sqrt on complex, imaginary part, im greater than 0 branch

start0.0ms (0%)

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

analyze130.0ms (3.1%)

Memory

9.7MiB live, 158.8MiB allocated; 39ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 19 to 12 computations (36.8% saved)

sample1.5s (35.5%)

Memory

22.9MiB live, 1 785.6MiB allocated; 367ms collecting garbage

Samples

662.0ms	6 303×	0	valid
202.0ms	729×	2	valid
141.0ms	484×	3	valid
120.0ms	740×	1	valid

Precisions

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

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

ival-mult!: 246.0ms (30.6% of total)

ival-sqrt: 128.0ms (15.9% of total)

adjust: 63.0ms (7.8% of total)

ival-sub!: 32.0ms (4% of total)

Bogosity

explain157.0ms (3.8%)

Memory

19.9MiB live, 355.4MiB allocated; 15ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
133	-	1	(3.2458386783466883e-290 1.7994361333509497e-162)	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`
32	-	0	-	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
21	-	1	(2.739491903655937e-229 5.754662327286435e-275)	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
0	-	0	-	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
0	-	0	-	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
0	-	0	-	`(*.f64 re re)`
0	-	0	-	`im`
0	-	0	-	`(+.f64 (.f64 re re) (.f64 im im))`
0	-	0	-	`#s(literal 2 binary64)`
0	-	0	-	`re`
0	-	0	-	`#s(literal 1/2 binary64)`
0	-	0	-	`(*.f64 im im)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	oflow-rescue	108	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	108
↳	`(*.f64 re re)`	overflow	71
↳	`(*.f64 im im)`	overflow	56
`-.f64`	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	cancellation	32	0
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	uflow-rescue	24	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	24
↳	`(*.f64 re re)`	underflow	68
↳	`(*.f64 im im)`	underflow	70
`sqrt.f64`	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	uflow-rescue	20	0
↳	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	underflow	25
↳	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	underflow	5
↳	`(*.f64 re re)`	underflow	68
↳	`(*.f64 im im)`	underflow	70
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	24
↳	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	underflow	25

Confusion

	Predicted +	Predicted -
+	158	1
-	0	97

Precision

1.0

Recall

0.9937106918238994

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	158	0	1
-	0	0	97

Precision?

1.0

Recall?

0.9937106918238994

Freqs

test

number	freq
0	98
1	132
2	26

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

33.0ms	398×	0	valid
12.0ms	28×	3	valid
10.0ms	36×	2	valid
8.0ms	50×	1	valid

Compiler

Compiled 169 to 40 computations (76.3% saved)

Precisions

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

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

ival-mult!: 12.0ms (28.4% of total)

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

adjust: 4.0ms (9.5% of total)

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

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

preprocess245.0ms (5.9%)

Memory

-7.1MiB live, 217.5MiB allocated; 82ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	34	61
1	75	61
2	156	61
3	233	61
4	380	61
5	966	61
6	6438	61
0	12	15
0	20	15
1	36	15
2	86	15
3	165	15
4	253	15
5	505	15
6	2708	15
0	8229	14

Stop Event

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

Calls

Call 1

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

Outputs

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

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

Symmetry

(abs im)

Compiler

Compiled 15 to 12 computations (20% saved)

eval0.0ms (0%)

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

prune0.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

Compiler

Compiled 15 to 12 computations (20% saved)

series30.0ms (0.7%)

Memory

8.5MiB live, 55.3MiB allocated; 3ms collecting garbage

Counts

12 → 119

Calls

Call 1

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

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

Calls

6 calls:

Time	Variable		Point	Expression
10.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)
4.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	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)

rewrite244.0ms (5.9%)

Memory

-20.5MiB live, 270.3MiB allocated; 59ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

Stop Event

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

Counts

131 → 154

Calls

Call 1

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

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

eval21.0ms (0.5%)

Memory: 2.8MiB live, 49.0MiB allocated; 3ms collecting garbage
Compiler: Compiled 5 040 to 985 computations (80.5% saved)

prune10.0ms (0.2%)

Memory

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

Pruning

11 alts after pruning (11 fresh and 0 done)

	Pruned	Kept	Total
New	149	11	160
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	150	11	161

Accuracy

99.6%

Counts

161 → 11

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	41.0%	(.f64 (sqrt.f64 (.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	5.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
▶	51.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
	47.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) im))))
	48.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))))))
	9.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re))))
	12.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
	12.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 (.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))))
▶	33.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
	45.1%	(.f64 #s(literal 1/2 binary64) #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 #s(literal -1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))))) re (sqrt.f64 (.f64 im #s(literal 2 binary64))))))
▶	23.5%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 (.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))

Compiler

Compiled 534 to 380 computations (28.8% saved)

series32.0ms (0.8%)

Memory

-10.4MiB live, 36.5MiB allocated; 2ms collecting garbage

Counts

33 → 234

Calls

Call 1

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

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

Calls

6 calls:

Time	Variable		Point	Expression
13.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))) im re (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (/ 1 (sqrt re))) (* 1 im) 1 (/ 1 (sqrt re)) (sqrt re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
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))) im re (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (/ 1 (sqrt re))) (* 1 im) 1 (/ 1 (sqrt re)) (sqrt re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
2.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))) im re (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (/ 1 (sqrt re))) (* 1 im) 1 (/ 1 (sqrt re)) (sqrt re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
2.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))) im re (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (/ 1 (sqrt re))) (* 1 im) 1 (/ 1 (sqrt re)) (sqrt re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
2.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))) im re (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (/ 1 (sqrt re))) (* 1 im) 1 (/ 1 (sqrt re)) (sqrt re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))

rewrite144.0ms (3.5%)

Memory

-14.8MiB live, 172.6MiB allocated; 17ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	831	9400
0	860	8158
0	4348	7858

Stop Event

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

Counts

267 → 249

Calls

Call 1

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

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

eval26.0ms (0.6%)

Memory: 13.3MiB live, 67.7MiB allocated; 6ms collecting garbage
Compiler: Compiled 5 255 to 890 computations (83.1% saved)

prune10.0ms (0.3%)

Memory

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

Pruning

13 alts after pruning (9 fresh and 4 done)

	Pruned	Kept	Total
New	184	4	188
Fresh	1	5	6
Picked	1	4	5
Done	0	0	0
Total	186	13	199

Accuracy

99.6%

Counts

199 → 13

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	41.0%	(.f64 (sqrt.f64 (.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	23.5%	(.f64 #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 im (sqrt.f64 re))) #s(literal 1/2 binary64))
▶	50.7%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) im) re))))
✓	5.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
✓	51.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
▶	47.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) im))))
	48.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))))))
▶	9.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re))))
	12.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
✓	33.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
	45.1%	(.f64 #s(literal 1/2 binary64) #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 #s(literal -1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))))) re (sqrt.f64 (.f64 im #s(literal 2 binary64))))))
▶	23.5%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im)))
▶	23.5%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 (.f64 #s(literal 1 binary64) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)))))

Compiler

Compiled 519 to 376 computations (27.6% saved)

series57.0ms (1.4%)

Memory

-32.8MiB live, 60.2MiB allocated; 8ms collecting garbage

Counts

36 → 227

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite276.0ms (6.7%)

Memory

-1.8MiB live, 196.8MiB allocated; 30ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	987	9806
0	1022	8409
0	5437	7910

Stop Event

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

Counts

263 → 247

Calls

Call 1

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

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

eval23.0ms (0.6%)

Memory: 14.6MiB live, 60.0MiB allocated; 3ms collecting garbage
Compiler: Compiled 7 953 to 1 125 computations (85.9% saved)

prune16.0ms (0.4%)

Memory

-15.1MiB live, 38.4MiB allocated; 4ms collecting garbage

Pruning

14 alts after pruning (9 fresh and 5 done)

	Pruned	Kept	Total
New	224	5	229
Fresh	0	4	4
Picked	4	1	5
Done	0	4	4
Total	228	14	242

Accuracy

99.6%

Counts

242 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	41.0%	(.f64 (sqrt.f64 (.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	23.5%	(.f64 #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 im (sqrt.f64 re))) #s(literal 1/2 binary64))
▶	33.5%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re))))
✓	50.7%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) im) re))))
	23.4%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal 1/2 binary64) re))))))
▶	47.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (- (sqrt (+ ( re re) (* im im))) re) im) #s(approx (- (sqrt (+ (* re re) (* im im))) re) im))))
✓	5.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
✓	51.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
▶	48.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))))))
	12.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
▶	12.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (.f64 im im))) re))))
✓	33.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
	45.1%	(.f64 #s(literal 1/2 binary64) #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 #s(literal -1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))))) re (sqrt.f64 (.f64 im #s(literal 2 binary64))))))
▶	23.5%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) im)))

Compiler

Compiled 591 to 402 computations (32% saved)

series46.0ms (1.1%)

Memory

1.9MiB live, 95.6MiB allocated; 5ms collecting garbage

Counts

39 → 320

Calls

Call 1

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

Calls

6 calls:

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

rewrite250.0ms (6%)

Memory

29.8MiB live, 356.0MiB allocated; 68ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1362	14092
0	1397	11885
1	7604	11881
0	8874	11191

Stop Event

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

Counts

359 → 324

Calls

Call 1

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

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

eval34.0ms (0.8%)

Memory: -3.2MiB live, 89.1MiB allocated; 6ms collecting garbage
Compiler: Compiled 13 212 to 1 573 computations (88.1% saved)

prune49.0ms (1.2%)

Memory

-21.9MiB live, 69.3MiB allocated; 43ms collecting garbage

Pruning

16 alts after pruning (8 fresh and 8 done)

	Pruned	Kept	Total
New	310	5	315
Fresh	1	3	4
Picked	1	4	5
Done	1	4	5
Total	313	16	329

Accuracy

99.7%

Counts

329 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	41.0%	(.f64 (sqrt.f64 (.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	23.5%	(.f64 #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 im (sqrt.f64 re))) #s(literal 1/2 binary64))
	33.3%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) (.f64 (neg.f64 re) (fma.f64 (.f64 (/.f64 im re) (/.f64 im re)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) re))))
✓	33.5%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re))))
✓	50.7%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) im) re))))
	23.4%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal 1/2 binary64) re))))))
	5.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (- (sqrt (+ ( re re) (* im im))) re) (neg.f64 im)) #s(approx (- (sqrt (+ (* re re) (* im im))) re) im))))
✓	47.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (- (sqrt (+ ( re re) (* im im))) re) im) #s(approx (- (sqrt (+ (* re re) (* im im))) re) im))))
✓	51.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
	12.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (+ (- (sqrt (+ ( re re) (* im im))) re) (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
	48.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
✓	12.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (.f64 im im))) re))))
✓	33.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
	45.1%	(.f64 #s(literal 1/2 binary64) #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 #s(literal -1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))))) re (sqrt.f64 (.f64 im #s(literal 2 binary64))))))
✓	23.5%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) im)))
	0.8%	#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (neg.f64 (sqrt.f64 (neg.f64 re))))

Compiler

Compiled 1 052 to 445 computations (57.7% saved)

regimes48.0ms (1.2%)

Memory

47.8MiB live, 95.1MiB allocated; 2ms collecting garbage

Counts

26 → 4

Calls

Call 1

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
64.2%	3	`(*.f64 im im)`
74.4%	4	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
74.4%	4	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
73.1%	4	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
73.1%	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))))`
81.9%	4	`re`
64.2%	3	`im`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes7.0ms (0.2%)

Memory

-34.1MiB live, 12.8MiB allocated; 2ms collecting garbage

Counts

18 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

5.0ms

re

Results

Accuracy	Segments	Branch
77.6%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes4.0ms (0.1%)

Memory

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

Counts

9 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

3.0ms

re

Results

Accuracy	Segments	Branch
77.6%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes24.0ms (0.6%)

Memory

-26.7MiB live, 27.9MiB allocated; 15ms collecting garbage

Counts

7 → 2

Calls

Call 1

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

Outputs

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

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

Calls

5 calls:

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

Results

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

Compiler

Compiled 51 to 40 computations (21.6% saved)

regimes9.0ms (0.2%)

Memory

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

Counts

2 → 1

Calls

Call 1

Inputs

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

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes8.0ms (0.2%)

Memory

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

Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

bsearch45.0ms (1.1%)

Memory

-19.7MiB live, 74.8MiB allocated; 5ms collecting garbage

Algorithm

3×	binary-search

Stop Event

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

Steps

Time	Left	Right
21.0ms	5.0144529280404164e-51	5.972410346163957e-43
11.0ms	-3.3315956532978484e-154	-8.400207588465802e-156
9.0ms	-3.478832530926202e+101	-1.1288921418911893e+101

Samples

17.0ms	270×	0	valid
6.0ms	38×	2	valid
4.0ms	26×	1	valid
0.0ms	2×	3	valid

Compiler

Compiled 895 to 704 computations (21.3% saved)

Precisions

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

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

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

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

adjust: 1.0ms (5.5% of total)

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

bsearch18.0ms (0.4%)

Memory

-16.8MiB live, 29.6MiB allocated; 2ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	5.0144529280404164e-51	5.972410346163957e-43
14.0ms	-619082918853.3755	-16990.299532668305

Samples

8.0ms

144×

valid

Compiler

Compiled 693 to 572 computations (17.5% saved)

Precisions

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch2.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	5.0144529280404164e-51	5.972410346163957e-43
1.0ms	-619082918853.3755	-16990.299532668305

Compiler

Compiled 675 to 554 computations (17.9% saved)

bsearch10.0ms (0.3%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
9.0ms	-6.118324846573834e-65	-1.4869237142318987e-65

Samples

5.0ms

96×

valid

Compiler

Compiled 300 to 188 computations (37.3% saved)

Precisions

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

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

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

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

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

adjust: 0.0ms (0% of total)

derivations201.0ms (4.9%)

Memory

24.0MiB live, 253.7MiB allocated; 20ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 322 to 73 computations (77.3% saved)

preprocess488.0ms (11.8%)

Memory: -67.9MiB live, 117.2MiB allocated; 797ms collecting garbage
Remove: (abs im)
Compiler: Compiled 1 318 to 494 computations (62.5% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze130.0ms (3.1%)

sample1.5s (35.5%)

explain157.0ms (3.8%)

preprocess245.0ms (5.9%)

eval0.0ms (0%)

prune0.0ms (0%)

series30.0ms (0.7%)

rewrite244.0ms (5.9%)

eval21.0ms (0.5%)

prune10.0ms (0.2%)

series32.0ms (0.8%)

rewrite144.0ms (3.5%)

eval26.0ms (0.6%)

prune10.0ms (0.3%)

series57.0ms (1.4%)

rewrite276.0ms (6.7%)

eval23.0ms (0.6%)

prune16.0ms (0.4%)

series46.0ms (1.1%)

rewrite250.0ms (6%)

eval34.0ms (0.8%)

prune49.0ms (1.2%)

regimes48.0ms (1.2%)

regimes7.0ms (0.2%)

regimes4.0ms (0.1%)

regimes24.0ms (0.6%)

regimes9.0ms (0.2%)

regimes8.0ms (0.2%)

bsearch45.0ms (1.1%)

bsearch18.0ms (0.4%)

bsearch2.0ms (0.1%)

bsearch10.0ms (0.3%)

derivations201.0ms (4.9%)

preprocess488.0ms (11.8%)

end0.0ms (0%)

Profiling