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

analyze201.0ms (4.3%)

Memory

-20.3MiB live, 216.3MiB allocated; 59ms 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.9s (40.4%)

Memory

-2.1MiB live, 2 062.3MiB allocated; 1.1s collecting garbage

Samples

984.0ms	6 245×	0	valid
240.0ms	781×	2	valid
148.0ms	462×	3	valid
137.0ms	768×	1	valid

Precisions

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

ival-hypot: 397.0ms (46.6% of total)

ival-mult: 176.0ms (20.7% of total)

ival-sqrt: 127.0ms (14.9% of total)

ival-sub: 76.0ms (8.9% of total)

adjust: 64.0ms (7.5% of total)

exact: 10.0ms (1.2% of total)

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

Bogosity

explain187.0ms (3.9%)

Memory

19.2MiB live, 368.1MiB allocated; 53ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
123	0	-	1	(8.315955531273606e-162 6.911354681092516e-195)	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`
39	0	-	0	-	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
14	2	(6.563271394812194e+217 6.378519524153642e-215)	1	(2.7674412010892485e+136 3.705908893142886e-93)	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
0	0	-	0	-	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
0	0	-	0	-	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
0	0	-	0	-	`(*.f64 re re)`
0	0	-	0	-	`im`
0	0	-	0	-	`(+.f64 (.f64 re re) (.f64 im im))`
0	0	-	0	-	`#s(literal 2 binary64)`
0	0	-	0	-	`re`
0	0	-	0	-	`#s(literal 1/2 binary64)`
0	0	-	0	-	`(*.f64 im im)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	oflow-rescue	106	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	106
↳	`(*.f64 re re)`	overflow	58
↳	`(*.f64 im im)`	overflow	65
`-.f64`	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	cancellation	39	0
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	uflow-rescue	16	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	16
↳	`(*.f64 re re)`	underflow	55
↳	`(*.f64 im im)`	underflow	53
`sqrt.f64`	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	uflow-rescue	15	0
↳	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	underflow	18
↳	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	underflow	3
↳	`(*.f64 re re)`	underflow	55
↳	`(*.f64 im im)`	underflow	53
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	16
↳	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	underflow	18

Confusion

	Predicted +	Predicted -
+	150	0
-	1	105

Precision

0.9933774834437086

Recall

1.0

Confusion?

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

Precision?

0.9933774834437086

Recall?

1.0

Freqs

test

number	freq
0	105
1	126
2	25

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

40.0ms	398×	0	valid
12.0ms	36×	2	valid
11.0ms	58×	1	valid
8.0ms	20×	3	valid

Compiler

Compiled 169 to 40 computations (76.3% saved)

Precisions

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

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

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

adjust: 5.0ms (10.6% of total)

ival-sqrt: 4.0ms (8.5% of total)

ival-sub: 3.0ms (6.4% of total)

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

exact: 1.0ms (2.1% of total)

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

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

preprocess246.0ms (5.2%)

Memory

-0.4MiB live, 228.4MiB allocated; 27ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	36	92
1	85	92
2	170	92
3	247	92
4	394	92
5	977	92
6	6308	92
0	12	15
0	20	15
1	36	15
2	86	15
3	165	15
4	253	15
5	505	15
6	2708	15
0	8229	10

Stop Event

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

Calls

Call 1

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

Outputs

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

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

Symmetry

(abs im)

Compiler

Compiled 15 to 12 computations (20% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

Compiler

Compiled 15 to 12 computations (20% saved)

series27.0ms (0.6%)

Memory

9.7MiB live, 53.6MiB allocated; 7ms 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
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)) 2 (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
4.0ms	im	@	0	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
4.0ms	re	@	inf	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms	im	@	-inf	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms	im	@	inf	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)

rewrite266.0ms (5.6%)

Memory

-18.6MiB live, 275.4MiB allocated; 51ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

Stop Event

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

Counts

131 → 311

Calls

Call 1

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

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

eval132.0ms (2.8%)

Memory: -18.5MiB live, 74.5MiB allocated; 5ms collecting garbage
Compiler: Compiled 7 463 to 1 905 computations (74.5% saved)

prune13.0ms (0.3%)

Memory

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

Pruning

13 alts after pruning (13 fresh and 0 done)

	Pruned	Kept	Total
New	304	13	317
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	305	13	318

Accuracy

99.9%

Counts

318 → 13

Alt Table

Click to see full alt table

Status	Accuracy	Program
	72.7%	(.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
	28.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (+.f64 (hypot.f64 im re) re)))))
▶	44.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
▶	19.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (.f64 re re) (.f64 im 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))))
	56.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
	13.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))))
	53.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) im))))
	54.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))))))
	14.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
▶	27.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
▶	75.2%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
	23.8%	#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1 binary64) im)) (pow.f64 re #s(literal -1/2 binary64))))

Compiler

Compiled 518 to 382 computations (26.3% saved)

series83.0ms (1.7%)

Memory

-34.8MiB live, 63.0MiB allocated; 11ms collecting garbage

Counts

40 → 407

Calls

Call 1

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

Outputs
#s(approx (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (+ (* -1 (* (sqrt (/ 1 im)) (/ re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (+ (* re (+ (* -1 (* (sqrt (/ 1 im)) (/ 1 (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))))) (* (sqrt im) (sqrt 2)))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (+ (* re (+ (* -1 (* (sqrt (/ 1 im)) (/ 1 (sqrt 2)))) (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (pow (sqrt 2) 3)))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (log (* 2 im)))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (* 1/2 (log (* 2 im))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (- (* 1/12 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (- (* (pow re 2) (+ (* -3/80 (/ (pow re 2) (pow im 5))) (* 1/12 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (log (* 2 im))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (* 2 im)) (* -1 (/ re im)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (* 2 im)) (* re (- (* 1/6 (/ (pow re 2) (pow im 3))) (/ 1 im))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (* 2 im)) (* re (- (* (pow re 2) (+ (* -3/40 (/ (pow re 2) (pow im 5))) (* 1/6 (/ 1 (pow im 3))))) (/ 1 im))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (- (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))) 2)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))) 1)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 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 (* -4 re) #s(hole binary64 (* -4 re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* -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 (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) #s(hole binary64 (pow im 2)))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (- (pow re 4) (pow im 4)) #s(hole binary64 (* -1 (pow im 4))))
#s(approx (- (pow re 4) (pow im 4)) #s(hole binary64 (- (pow re 4) (pow im 4))))
#s(approx (pow re 4) #s(hole binary64 (pow re 4)))
#s(approx (- (* re re) (* im im)) #s(hole binary64 (* -1 (pow im 2))))
#s(approx (- (* re re) (* im im)) #s(hole binary64 (- (pow re 2) (pow im 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (sqrt (/ 1 re)))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (+ (* -1/8 (* (pow im 3) (sqrt (/ 1 (pow re 5))))) (* im (sqrt (/ 1 re))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (+ (* -1/8 (* (pow im 3) (sqrt (/ 1 (pow re 5))))) (+ (* 1/16 (* (pow im 5) (sqrt (/ 1 (pow re 9))))) (* im (sqrt (/ 1 re)))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (+ (* -1/8 (* (pow im 3) (sqrt (/ 1 (pow re 5))))) (+ (* -1/128 (* (pow im 5) (sqrt (/ 1 (pow re 9))))) (+ (* 1/16 (* (pow im 5) (sqrt (/ 1 (pow re 9))))) (* im (sqrt (/ 1 re))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log (/ 1 re)) (log (pow im 2))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log (/ 1 re)) (log (pow im 2)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ 1 re)) (log (pow im 2))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/1440 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ 1 re)) (log (pow im 2)))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (log (pow im 2)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (+ (log (pow im 2)) (* -1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4)))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/1024 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/512 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) #s(hole binary64 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) #s(hole binary64 (pow re 2)))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (- (pow re 4) (pow im 4)) #s(hole binary64 (pow re 4)))
#s(approx (- (pow re 4) (pow im 4)) #s(hole binary64 (* (pow re 4) (+ 1 (* -1 (/ (pow im 4) (pow re 4)))))))
#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 (* -1 (/ (pow im 2) (pow re 2)))))))
#s(approx (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) #s(hole binary64 (* -1/2 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -2 (* (sqrt re) (sqrt -1)))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* re (+ (* -1/4 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 2 (* (sqrt (/ 1 re)) (sqrt -1))))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* 2 (* (sqrt (/ 1 re)) (sqrt -1))))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/64 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* 2 (* (sqrt (/ 1 re)) (sqrt -1))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 4) (* -1 (log (/ -1 re)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ -1 re))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ -1 re)))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/1440 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ -1 re))))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 4) (* -1 (log (/ -1 re))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ -1 re))) (* 1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ -1 re))) (+ (* 1/720 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 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 (* -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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) #s(hole binary64 (* -1 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* -4 re)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* -2 re)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (sqrt (/ 1 re)) (* -1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5)))))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (sqrt (/ 1 re)) (* (pow im 2) (+ (* -1/8 (sqrt (/ 1 (pow re 5)))) (* 7/128 (* (pow im 2) (sqrt (/ 1 (pow re 9)))))))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (sqrt (/ 1 re)) (* (pow im 2) (+ (* -1/8 (sqrt (/ 1 (pow re 5)))) (* (pow im 2) (+ (* -33/1024 (* (pow im 2) (sqrt (/ 1 (pow re 13))))) (* 7/128 (sqrt (/ 1 (pow re 9))))))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log (/ 1 re)) (* 2 (log im))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log (/ 1 re)) (* 2 (log im)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log (/ 1 re)) (* 2 (log im)))) (* (pow im 2) (- (* 3/64 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log (/ 1 re)) (* 2 (log im)))) (* (pow im 2) (- (* (pow im 2) (+ (* -5/192 (/ (pow im 2) (pow re 6))) (* 3/64 (/ 1 (pow re 4))))) (* 1/8 (/ 1 (pow re 2))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (* 2 (log im)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (* 2 (log im))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (+ (* 2 (log im)) (* (pow im 2) (- (* 3/32 (/ (pow im 2) (pow re 4))) (* 1/4 (/ 1 (pow re 2)))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (+ (* 2 (log im)) (* (pow im 2) (- (* (pow im 2) (+ (* -5/96 (/ (pow im 2) (pow re 6))) (* 3/32 (/ 1 (pow re 4))))) (* 1/4 (/ 1 (pow re 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 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 (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (- (pow re 4) (pow im 4)) #s(hole binary64 (+ (* -1 (pow im 4)) (pow re 4))))
#s(approx (pow im 4) #s(hole binary64 (pow im 4)))
#s(approx (- (* re re) (* im im)) #s(hole binary64 (+ (* -1 (pow im 2)) (pow re 2))))
#s(approx (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (* -1 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (* -1 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (* -1 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (+ (* 1/12 (/ (+ (* -2 (pow re 3)) (* 3 (pow re 3))) (pow im 3))) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (* -1 (log (/ 1 im))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (* -1 (/ re im))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* -1 (/ re im)) (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* -1 (/ re im)) (+ (* 1/6 (/ (+ (* -2 (pow re 3)) (* 3 (pow re 3))) (pow im 3))) (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2)))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (* -1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))) (/ re im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* im (+ 1 (* -1 (/ re im))))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (- (pow re 4) (pow im 4)) #s(hole binary64 (* (pow im 4) (- (/ (pow re 4) (pow im 4)) 1))))
#s(approx (- (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (- (/ (pow re 2) (pow im 2)) 1))))
#s(approx (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))) (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))) (* 1/2 (/ re im)))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 re) (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -2 (pow re 3)) (* 3 (pow re 3))) im)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2)))) im)) (* -1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (* -1 (log (/ -1 im))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (/ re im)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ (* -1 re) (* -1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ (* -1 re) (* -1 (/ (+ (* -1/6 (/ (+ (* -2 (pow re 3)) (* 3 (pow re 3))) im)) (* 1/2 (+ (* -1 (pow re 2)) (pow re 2)))) im))) im))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im))) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im)) re) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 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 (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* -1 im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* -1 (* im (+ 1 (/ re im))))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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
33.0ms	re	@	inf	((* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (- (pow re 4) (pow im 4)) (pow re 4) 4 (pow im 4) (- (* re re) (* im im)) (* re re))
5.0ms	re	@	-inf	((* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (- (pow re 4) (pow im 4)) (pow re 4) 4 (pow im 4) (- (* re re) (* im im)) (* re re))
5.0ms	im	@	0	((* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (- (pow re 4) (pow im 4)) (pow re 4) 4 (pow im 4) (- (* re re) (* im im)) (* re re))
4.0ms	re	@	0	((* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (- (pow re 4) (pow im 4)) (pow re 4) 4 (pow im 4) (- (* re re) (* im im)) (* re re))
4.0ms	im	@	inf	((* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (- (pow re 4) (pow im 4)) (pow re 4) 4 (pow im 4) (- (* re re) (* im im)) (* re re))

rewrite283.0ms (6%)

Memory

37.5MiB live, 308.3MiB allocated; 31ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1380	16384
0	1427	12509
1	7401	12482
0	8806	11959

Stop Event

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

Counts

447 → 665

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(literal 1/2 binary64)
(exp.f64 (.f64 (log.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(.f64 (log.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(log.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)))
(*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))
(-.f64 (hypot.f64 im re) re)
(hypot.f64 im re)
im
re
#s(literal 2 binary64)
(.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) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (.f64 im im))) re)))
(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (.f64 im im))) re))
(-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)
(sqrt.f64 (fma.f64 re re (*.f64 im im)))
(fma.f64 re re (*.f64 im im))
(*.f64 im im)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (.f64 re re) (.f64 im im)))) re))))
(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (.f64 re re) (*.f64 im im)))) re)))
(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (.f64 re re) (*.f64 im im)))) re))
(-.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (.f64 re re) (.f64 im im)))) re)
(sqrt.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (.f64 re re) (.f64 im im))))
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (.f64 re re) (.f64 im im)))
(-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))
(pow.f64 re #s(literal 4 binary64))
#s(literal 4 binary64)
(pow.f64 im #s(literal 4 binary64))
(-.f64 (.f64 re re) (.f64 im im))
(*.f64 re re)
#s(approx (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (+ (* -1 (* (sqrt (/ 1 im)) (/ re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (+ (* re (+ (* -1 (* (sqrt (/ 1 im)) (/ 1 (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))))) (* (sqrt im) (sqrt 2)))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (+ (* re (+ (* -1 (* (sqrt (/ 1 im)) (/ 1 (sqrt 2)))) (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (pow (sqrt 2) 3)))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (log (* 2 im)))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (* 1/2 (log (* 2 im))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (- (* 1/12 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (- (* (pow re 2) (+ (* -3/80 (/ (pow re 2) (pow im 5))) (* 1/12 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (log (* 2 im))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (* 2 im)) (* -1 (/ re im)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (* 2 im)) (* re (- (* 1/6 (/ (pow re 2) (pow im 3))) (/ 1 im))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (* 2 im)) (* re (- (* (pow re 2) (+ (* -3/40 (/ (pow re 2) (pow im 5))) (* 1/6 (/ 1 (pow im 3))))) (/ 1 im))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (- (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))) 2)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))) 1)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 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 (* -4 re) #s(hole binary64 (* -4 re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* -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 (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) #s(hole binary64 (pow im 2)))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (- (pow re 4) (pow im 4)) #s(hole binary64 (* -1 (pow im 4))))
#s(approx (- (pow re 4) (pow im 4)) #s(hole binary64 (- (pow re 4) (pow im 4))))
#s(approx (pow re 4) #s(hole binary64 (pow re 4)))
#s(approx (- (* re re) (* im im)) #s(hole binary64 (* -1 (pow im 2))))
#s(approx (- (* re re) (* im im)) #s(hole binary64 (- (pow re 2) (pow im 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (sqrt (/ 1 re)))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (+ (* -1/8 (* (pow im 3) (sqrt (/ 1 (pow re 5))))) (* im (sqrt (/ 1 re))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (+ (* -1/8 (* (pow im 3) (sqrt (/ 1 (pow re 5))))) (+ (* 1/16 (* (pow im 5) (sqrt (/ 1 (pow re 9))))) (* im (sqrt (/ 1 re)))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (+ (* -1/8 (* (pow im 3) (sqrt (/ 1 (pow re 5))))) (+ (* -1/128 (* (pow im 5) (sqrt (/ 1 (pow re 9))))) (+ (* 1/16 (* (pow im 5) (sqrt (/ 1 (pow re 9))))) (* im (sqrt (/ 1 re))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log (/ 1 re)) (log (pow im 2))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log (/ 1 re)) (log (pow im 2)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ 1 re)) (log (pow im 2))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/1440 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ 1 re)) (log (pow im 2)))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (log (pow im 2)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (+ (log (pow im 2)) (* -1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4)))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/1024 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/512 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) #s(hole binary64 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) #s(hole binary64 (pow re 2)))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (- (pow re 4) (pow im 4)) #s(hole binary64 (pow re 4)))
#s(approx (- (pow re 4) (pow im 4)) #s(hole binary64 (* (pow re 4) (+ 1 (* -1 (/ (pow im 4) (pow re 4)))))))
#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 (* -1 (/ (pow im 2) (pow re 2)))))))
#s(approx (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) #s(hole binary64 (* -1/2 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -2 (* (sqrt re) (sqrt -1)))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* re (+ (* -1/4 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 2 (* (sqrt (/ 1 re)) (sqrt -1))))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* 2 (* (sqrt (/ 1 re)) (sqrt -1))))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/64 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* 2 (* (sqrt (/ 1 re)) (sqrt -1))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 4) (* -1 (log (/ -1 re)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ -1 re))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ -1 re)))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/1440 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ -1 re))))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 4) (* -1 (log (/ -1 re))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ -1 re))) (* 1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ -1 re))) (+ (* 1/720 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 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 (* -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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) #s(hole binary64 (* -1 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* -4 re)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* -2 re)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (sqrt (/ 1 re)) (* -1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5)))))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (sqrt (/ 1 re)) (* (pow im 2) (+ (* -1/8 (sqrt (/ 1 (pow re 5)))) (* 7/128 (* (pow im 2) (sqrt (/ 1 (pow re 9)))))))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (sqrt (/ 1 re)) (* (pow im 2) (+ (* -1/8 (sqrt (/ 1 (pow re 5)))) (* (pow im 2) (+ (* -33/1024 (* (pow im 2) (sqrt (/ 1 (pow re 13))))) (* 7/128 (sqrt (/ 1 (pow re 9))))))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log (/ 1 re)) (* 2 (log im))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log (/ 1 re)) (* 2 (log im)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log (/ 1 re)) (* 2 (log im)))) (* (pow im 2) (- (* 3/64 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log (/ 1 re)) (* 2 (log im)))) (* (pow im 2) (- (* (pow im 2) (+ (* -5/192 (/ (pow im 2) (pow re 6))) (* 3/64 (/ 1 (pow re 4))))) (* 1/8 (/ 1 (pow re 2))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (* 2 (log im)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (* 2 (log im))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (+ (* 2 (log im)) (* (pow im 2) (- (* 3/32 (/ (pow im 2) (pow re 4))) (* 1/4 (/ 1 (pow re 2)))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log (/ 1 re)) (+ (* 2 (log im)) (* (pow im 2) (- (* (pow im 2) (+ (* -5/96 (/ (pow im 2) (pow re 6))) (* 3/32 (/ 1 (pow re 4))))) (* 1/4 (/ 1 (pow re 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 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 (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (- (pow re 4) (pow im 4)) #s(hole binary64 (+ (* -1 (pow im 4)) (pow re 4))))
#s(approx (pow im 4) #s(hole binary64 (pow im 4)))
#s(approx (- (* re re) (* im im)) #s(hole binary64 (+ (* -1 (pow im 2)) (pow re 2))))
#s(approx (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (* -1 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (* -1 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (* -1 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (+ (* 1/12 (/ (+ (* -2 (pow re 3)) (* 3 (pow re 3))) (pow im 3))) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (* -1 (log (/ 1 im))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (* -1 (/ re im))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* -1 (/ re im)) (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* -1 (/ re im)) (+ (* 1/6 (/ (+ (* -2 (pow re 3)) (* 3 (pow re 3))) (pow im 3))) (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2)))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (* -1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))) (/ re im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* im (+ 1 (* -1 (/ re im))))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (- (pow re 4) (pow im 4)) #s(hole binary64 (* (pow im 4) (- (/ (pow re 4) (pow im 4)) 1))))
#s(approx (- (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (- (/ (pow re 2) (pow im 2)) 1))))
#s(approx (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (exp (* (log (* (- (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 (* 1/2 (exp (* (log (* (- (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 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))) (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))) (* 1/2 (/ re im)))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 re) (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -2 (pow re 3)) (* 3 (pow re 3))) im)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2)))) im)) (* -1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (* -1 (log (/ -1 im))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (/ re im)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ (* -1 re) (* -1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ (* -1 re) (* -1 (/ (+ (* -1/6 (/ (+ (* -2 (pow re 3)) (* 3 (pow re 3))) im)) (* 1/2 (+ (* -1 (pow re 2)) (pow re 2)))) im))) im))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im))) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im)) re) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 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 (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* -1 im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* -1 (* im (+ 1 (/ re im))))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))

Outputs
(.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 (hypot.f64 re im) re)))
(pow.f64 (exp.f64 (log.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(pow.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (exp.f64 (log.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
(exp.f64 (log.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))))
(+.f64 (cosh.f64 (log.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))) (sinh.f64 (log.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))))
(.f64 (log.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (log.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))
(log.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))
(fma.f64 #s(literal 1 binary64) (log.f64 #s(literal 2 binary64)) (log.f64 (-.f64 (hypot.f64 re im) re)))
(fma.f64 #s(literal 2 binary64) (log.f64 (sqrt.f64 #s(literal 2 binary64))) (log.f64 (-.f64 (hypot.f64 re im) re)))
(+.f64 (log.f64 (-.f64 (hypot.f64 re im) re)) (log.f64 #s(literal 2 binary64)))
(+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (-.f64 (hypot.f64 re im) re)))
(log.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))
(*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))
(+.f64 (-.f64 (hypot.f64 re im) re) (-.f64 (hypot.f64 re im) re))
(/.f64 (-.f64 (.f64 (hypot.f64 re im) (hypot.f64 re im)) (.f64 re re)) (+.f64 (hypot.f64 re im) re))
(/.f64 (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 (hypot.f64 re im) (hypot.f64 re im) (fma.f64 re re (*.f64 (hypot.f64 re im) re))))
(-.f64 (hypot.f64 re im) re)
(pow.f64 (fma.f64 re re (*.f64 im im)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (sqrt.f64 (*.f64 (+.f64 re im) (-.f64 re im))))
(sqrt.f64 (fma.f64 re re (*.f64 im im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im)
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(exp.f64 (.f64 (log.f64 (fma.f64 re re (.f64 im im))) #s(literal 1/2 binary64)))
im
re
#s(literal 2 binary64)
(.f64 (sqrt.f64 #s(approx ( 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal -4 binary64) re))))
(pow.f64 #s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal -4 binary64) re)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal -4 binary64) re)))
(exp.f64 (.f64 (log.f64 #s(approx ( 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal -4 binary64) re))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (-.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) re) #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- ( re re) (* im im)))) re) re)))
(pow.f64 (.f64 (-.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- ( re re) (* im im)))) re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (-.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- ( re re) (* im im)))) re) re) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 (-.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- ( re re) (* im im)))) re) re) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- ( re re) (* im im)))) re) re))
(+.f64 (-.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) re) (-.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) re))
(/.f64 (-.f64 (.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- ( re re) (* im im)))) re) #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 re re)) (+.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- ( re re) (* im im)))) re) re))
(/.f64 (-.f64 (pow.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (fma.f64 re re (.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- ( re re) (* im im)))) re) re))))
(-.f64 #s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) re)
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)
(.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 (hypot.f64 re im) re)))
(pow.f64 (exp.f64 (log.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(pow.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (exp.f64 (log.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
(exp.f64 (log.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))))
(+.f64 (cosh.f64 (log.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))) (sinh.f64 (log.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))))
(*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))
(+.f64 (-.f64 (hypot.f64 re im) re) (-.f64 (hypot.f64 re im) re))
(/.f64 (-.f64 (.f64 (hypot.f64 re im) (hypot.f64 re im)) (.f64 re re)) (+.f64 (hypot.f64 re im) re))
(/.f64 (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 (hypot.f64 re im) (hypot.f64 re im) (fma.f64 re re (*.f64 (hypot.f64 re im) re))))
(-.f64 (hypot.f64 re im) re)
(pow.f64 (fma.f64 re re (*.f64 im im)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (sqrt.f64 (*.f64 (+.f64 re im) (-.f64 re im))))
(sqrt.f64 (fma.f64 re re (*.f64 im im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im)
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(exp.f64 (.f64 (log.f64 (fma.f64 re re (.f64 im im))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (-.f64 (.f64 im im) (.f64 re re)))
(/.f64 (+.f64 (pow.f64 (.f64 re re) #s(literal 3 binary64)) (pow.f64 (.f64 im im) #s(literal 3 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (.f64 re re) (*.f64 im im)))))
(/.f64 (+.f64 (pow.f64 (.f64 im im) #s(literal 3 binary64)) (pow.f64 (.f64 re re) #s(literal 3 binary64))) (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (.f64 im im) (*.f64 re re)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (neg.f64 (*.f64 (+.f64 re im) (-.f64 re im))))
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 (+.f64 re im) (-.f64 re im)))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 im im))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)) (*.f64 re re))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 re re (*.f64 im im))
(fma.f64 im im (*.f64 re re))
(-.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (+.f64 re im) (-.f64 re im))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (+.f64 re im) (-.f64 re im))))
(-.f64 (.f64 im im) (.f64 (neg.f64 re) re))
(-.f64 (.f64 re re) (.f64 (neg.f64 im) im))
(+.f64 (.f64 im im) (.f64 re re))
(+.f64 (.f64 re re) (.f64 im im))
(*.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 im #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 im) #s(literal 2 binary64))))
(.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 (hypot.f64 re im) re)))
(pow.f64 (exp.f64 (log.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(pow.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (exp.f64 (log.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
(exp.f64 (log.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))))
(+.f64 (cosh.f64 (log.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))) (sinh.f64 (log.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))))))
(*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))
(+.f64 (-.f64 (hypot.f64 re im) re) (-.f64 (hypot.f64 re im) re))
(/.f64 (-.f64 (.f64 (hypot.f64 re im) (hypot.f64 re im)) (.f64 re re)) (+.f64 (hypot.f64 re im) re))
(/.f64 (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 (hypot.f64 re im) (hypot.f64 re im) (fma.f64 re re (*.f64 (hypot.f64 re im) re))))
(-.f64 (hypot.f64 re im) re)
(pow.f64 (fma.f64 re re (*.f64 im im)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (sqrt.f64 (*.f64 (+.f64 re im) (-.f64 re im))))
(sqrt.f64 (fma.f64 re re (*.f64 im im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im)
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(exp.f64 (.f64 (log.f64 (fma.f64 re re (.f64 im im))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (-.f64 (.f64 im im) (.f64 re re)))
(/.f64 (+.f64 (pow.f64 (.f64 re re) #s(literal 3 binary64)) (pow.f64 (.f64 im im) #s(literal 3 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (.f64 re re) (*.f64 im im)))))
(/.f64 (+.f64 (pow.f64 (.f64 im im) #s(literal 3 binary64)) (pow.f64 (.f64 re re) #s(literal 3 binary64))) (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (.f64 im im) (*.f64 re re)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (neg.f64 (*.f64 (+.f64 re im) (-.f64 re im))))
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 (+.f64 re im) (-.f64 re im)))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 im im))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)) (*.f64 re re))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 re re (*.f64 im im))
(fma.f64 im im (*.f64 re re))
(-.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (+.f64 re im) (-.f64 re im))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (+.f64 re im) (-.f64 re im))))
(-.f64 (.f64 im im) (.f64 (neg.f64 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 (-.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 8 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)) (+.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))))))
(-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))
(.f64 (.f64 re re) (*.f64 re re))
(pow.f64 re #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 re) #s(literal 4 binary64))) (sinh.f64 (.f64 (log.f64 re) #s(literal 4 binary64))))
#s(literal 4 binary64)
(.f64 (.f64 im im) (*.f64 im im))
(pow.f64 im #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 im) #s(literal 4 binary64))) (sinh.f64 (.f64 (log.f64 im) #s(literal 4 binary64))))
(*.f64 (+.f64 re im) (-.f64 re im))
(/.f64 (-.f64 (pow.f64 (.f64 re re) #s(literal 3 binary64)) (pow.f64 (.f64 im im) #s(literal 3 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (.f64 re re) (*.f64 im im)))))
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 re re (*.f64 im im)))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 (neg.f64 im) im))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 (neg.f64 im) im))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 (neg.f64 im) im))
(fma.f64 re re (*.f64 (neg.f64 im) im))
(-.f64 (.f64 re re) (.f64 im im))
(+.f64 (.f64 re re) (.f64 (neg.f64 im) im))
(*.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 re #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 re) #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/4 binary64))) re (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/4 binary64))) re (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (.f64 #s(literal -1 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (.f64 #s(literal 2 binary64) im))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (.f64 re (/.f64 (-.f64 (pow.f64 im #s(literal -1 binary64)) (/.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (.f64 (tanh.f64 (asinh.f64 #s(literal 1 binary64))) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))) re (sqrt.f64 (.f64 #s(literal 2 binary64) im))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (-.f64 (pow.f64 im #s(literal -1 binary64)) (/.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) (.f64 (.f64 re (/.f64 (-.f64 (pow.f64 im #s(literal -1 binary64)) (/.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))))) re (neg.f64 (.f64 (tanh.f64 (asinh.f64 #s(literal 1 binary64))) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (log.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (/.f64 re im) #s(literal -1/2 binary64) (log.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 1/12 binary64) (.f64 re re)) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re (log.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (-.f64 (.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal -3/80 binary64) (.f64 #s(literal 1/12 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 re re)) (/.f64 #s(literal 1/2 binary64) im)) re (log.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (log.f64 (*.f64 #s(literal 2 binary64) im)))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (/.f64 re im) #s(literal -1 binary64) (log.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 1/6 binary64) (.f64 re re)) (pow.f64 im #s(literal 3 binary64))) (pow.f64 im #s(literal -1 binary64))) re (log.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -3/40 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) (.f64 #s(literal 1/6 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 re re)) (pow.f64 im #s(literal -1 binary64))) re (log.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal 2 binary64) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (fma.f64 #s(literal -2 binary64) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (fma.f64 (-.f64 (.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 im #s(literal -1 binary64))) re) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) im)
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (fma.f64 #s(literal -1 binary64) re im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re) #s(literal 1 binary64)) re im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) im)
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/4 binary64))) re (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/4 binary64))) re (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 #s(literal -1/2 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 #s(literal 1/8 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))))) re (.f64 #s(literal -1/2 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal 2 binary64) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (fma.f64 #s(literal -2 binary64) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (fma.f64 (-.f64 (.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 im #s(literal -1 binary64))) re) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* -4 re) (*.f64 #s(literal -4 binary64) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) im)
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (fma.f64 #s(literal -1 binary64) re im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re) #s(literal 1 binary64)) re im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) im)
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (*.f64 im im))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (fma.f64 re re (*.f64 im im)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/4 binary64))) re (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/4 binary64))) re (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 #s(literal -1/2 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 #s(literal 1/8 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))))) re (.f64 #s(literal -1/2 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal 2 binary64) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (fma.f64 #s(literal -2 binary64) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (fma.f64 (-.f64 (.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 im #s(literal -1 binary64))) re) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) im)
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (fma.f64 #s(literal -1 binary64) re im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re) #s(literal 1 binary64)) re im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) im)
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (*.f64 im im))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (fma.f64 re re (*.f64 im im)))
#s(approx (- (pow re 4) (pow im 4)) (neg.f64 (pow.f64 im #s(literal 4 binary64))))
#s(approx (- (pow re 4) (pow im 4)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))))
#s(approx (pow re 4) (pow.f64 re #s(literal 4 binary64)))
#s(approx (- (* re re) (* im im)) (neg.f64 (*.f64 im im)))
#s(approx (- (* re re) (* im im)) (*.f64 (+.f64 re im) (-.f64 re im)))
#s(approx (* re re) (*.f64 re re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1 binary64) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1 binary64) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (.f64 (.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1 binary64) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (.f64 (.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (.f64 (/.f64 (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/1024 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1 binary64) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (.f64 (.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) im)))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) im))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) im)))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))) #s(literal 1/2 binary64)))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 im im)) (*.f64 re re))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (fma.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64) (/.f64 (.f64 #s(literal -720 binary64) (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64))) (.f64 im im))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/1440 binary64) (fma.f64 (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 1/48 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 #s(literal -1 binary64) (log.f64 re) (fma.f64 (log.f64 im) #s(literal 2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (*.f64 re re)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (+.f64 (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (.f64 re re)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (+.f64 (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1/4 binary64) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64) (/.f64 (.f64 #s(literal -720 binary64) (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64))) (.f64 im im))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (/.f64 (*.f64 im im) re))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (.f64 im im)) re))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (.f64 im im))) re))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (/.f64 (.f64 im im) re) #s(literal 1/2 binary64)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/8 binary64) (.f64 (*.f64 im im) #s(literal 1/2 binary64))) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (.f64 (.f64 im im) #s(literal 1/2 binary64))))) re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1 binary64) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1 binary64) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (.f64 (.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1 binary64) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (.f64 (.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (.f64 (/.f64 (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/1024 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1 binary64) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (.f64 (.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (.f64 #s(literal 1 binary64) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (.f64 #s(literal 1 binary64) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (.f64 #s(literal 1/32 binary64) (.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (.f64 (.f64 #s(literal 1 binary64) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 #s(literal -1/512 binary64) (.f64 (/.f64 (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 (.f64 #s(literal 1/32 binary64) (.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (.f64 (.f64 #s(literal 1 binary64) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (/.f64 (*.f64 im im) re))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (.f64 im im)) re))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (.f64 im im))) re))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (/.f64 (.f64 im im) re) #s(literal 1/2 binary64)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/8 binary64) (.f64 (*.f64 im im) #s(literal 1/2 binary64))) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (.f64 (.f64 im im) #s(literal 1/2 binary64))))) re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (*.f64 re re))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1 binary64) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1 binary64) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (.f64 (.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1 binary64) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (.f64 (.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (.f64 (/.f64 (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/1024 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1 binary64) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (.f64 (.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (.f64 #s(literal 1 binary64) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (.f64 #s(literal 1 binary64) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (.f64 #s(literal 1/32 binary64) (.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (.f64 (.f64 #s(literal 1 binary64) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 #s(literal -1/512 binary64) (.f64 (/.f64 (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 (.f64 #s(literal 1/32 binary64) (.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (.f64 (.f64 #s(literal 1 binary64) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (/.f64 (*.f64 im im) re))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (.f64 im im)) re))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (.f64 im im))) re))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (/.f64 (.f64 im im) re) #s(literal 1/2 binary64)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/8 binary64) (.f64 (*.f64 im im) #s(literal 1/2 binary64))) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (.f64 (.f64 im im) #s(literal 1/2 binary64))))) re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (*.f64 re re))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (.f64 (+.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1 binary64)) (.f64 re re)))
#s(approx (- (pow re 4) (pow im 4)) (pow.f64 re #s(literal 4 binary64)))
#s(approx (- (pow re 4) (pow im 4)) (*.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1 binary64) #s(literal 1 binary64)) (pow.f64 re #s(literal 4 binary64))))
#s(approx (- (* re re) (* im im)) (*.f64 re re))
#s(approx (- (* re re) (* im im)) (.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 re) (fma.f64 (.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal -1/8 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 re) (fma.f64 (.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 re) (fma.f64 (.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/32 binary64) (fma.f64 (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/64 binary64) (.f64 (.f64 (.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64)))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (*.f64 (sqrt.f64 (neg.f64 re)) #s(literal -2 binary64)))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 re) (fma.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal -1/4 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 re) (fma.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (sqrt.f64 (neg.f64 re))) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 re) (fma.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (sqrt.f64 (neg.f64 re))) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (*.f64 re re))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (fma.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (.f64 re re)))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (/.f64 (fma.f64 #s(literal 15/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 135/4 binary64))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/1440 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (fma.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (*.f64 re re))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (+.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 im im) (.f64 re re)) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))) (log.f64 #s(literal 4 binary64))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (+.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (.f64 re re)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (+.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) (fma.f64 (/.f64 (fma.f64 #s(literal 15/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 135/4 binary64))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (*.f64 re re))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal -4 binary64) re))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 im im) (*.f64 re re))) #s(literal 4 binary64))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/8 binary64) (/.f64 (.f64 im im) (*.f64 re re)))) #s(literal 4 binary64))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (*.f64 #s(literal -2 binary64) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re))) #s(literal 2 binary64))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re)))) #s(literal 2 binary64))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (neg.f64 re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 re) (fma.f64 (.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal -1/8 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 re) (fma.f64 (.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 re) (fma.f64 (.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/32 binary64) (fma.f64 (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/64 binary64) (.f64 (.f64 (.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64)))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (neg.f64 (*.f64 (sqrt.f64 (neg.f64 re)) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 re) (fma.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal -1/4 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 re) (fma.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (sqrt.f64 (neg.f64 re))) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 re) (fma.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (sqrt.f64 (neg.f64 re))) (.f64 (.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal -4 binary64) re))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 im im) (*.f64 re re))) #s(literal 4 binary64))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/8 binary64) (/.f64 (.f64 im im) (*.f64 re re)))) #s(literal 4 binary64))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (*.f64 #s(literal -2 binary64) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re))) #s(literal 2 binary64))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re)))) #s(literal 2 binary64))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (neg.f64 re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 re) (fma.f64 (.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal -1/8 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 re) (fma.f64 (.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 re) (fma.f64 (.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/32 binary64) (fma.f64 (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/64 binary64) (.f64 (.f64 (.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64)))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (neg.f64 (*.f64 (sqrt.f64 (neg.f64 re)) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 re) (fma.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal -1/4 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 re) (fma.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (sqrt.f64 (neg.f64 re))) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 re) (fma.f64 (sqrt.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (sqrt.f64 (neg.f64 re))) (.f64 (.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal -4 binary64) re))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 im im) (*.f64 re re))) #s(literal 4 binary64))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/8 binary64) (/.f64 (.f64 im im) (*.f64 re re)))) #s(literal 4 binary64))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (*.f64 #s(literal -2 binary64) re))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re))) #s(literal 2 binary64))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re)))) #s(literal 2 binary64))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (neg.f64 re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (.f64 im im) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal 2 binary64)) #s(literal -1/32 binary64))) (.f64 im im) (.f64 (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 re)) (/.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 (/.f64 (.f64 (.f64 (fma.f64 (/.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (.f64 (.f64 re re) #s(literal 1/2 binary64))) #s(literal -1/16 binary64) (.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/4 binary64))) (.f64 im im) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal 2 binary64)) #s(literal -1/32 binary64))) (.f64 im im) (.f64 (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 7/128 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal -1/8 binary64))) (*.f64 im im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -33/1024 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -13 binary64))) (.f64 #s(literal 7/128 binary64) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))) (.f64 im im) (.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal -1/8 binary64))) (*.f64 im im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) im))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))) #s(literal 1/2 binary64)))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 im im)) (*.f64 re re))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) #s(literal 3/64 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -2 binary64)))) (.f64 im im) (.f64 (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))) #s(literal 1/2 binary64))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (pow.f64 re #s(literal -4 binary64)) #s(literal 3/64 binary64) (/.f64 (.f64 #s(literal -5/192 binary64) (.f64 im im)) (pow.f64 re #s(literal 6 binary64)))) (.f64 im im) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -2 binary64)))) (.f64 im im) (.f64 (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))) #s(literal 1/2 binary64))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 #s(literal -1 binary64) (log.f64 re) (fma.f64 (log.f64 im) #s(literal 2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (*.f64 re re)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 #s(literal -1 binary64) (log.f64 re) (fma.f64 (fma.f64 #s(literal 3/32 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -2 binary64)))) (.f64 im im) (.f64 (log.f64 im) #s(literal 2 binary64)))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 #s(literal -1 binary64) (log.f64 re) (fma.f64 (fma.f64 (fma.f64 #s(literal -5/96 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 3/32 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 im im) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -2 binary64)))) (.f64 im im) (.f64 (log.f64 im) #s(literal 2 binary64)))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/8 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 7 binary64))) #s(literal -5/64 binary64) (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/8 binary64))) (.f64 im im) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -5/128 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 7 binary64))) (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64))) (.f64 im im) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx im im)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (.f64 im im) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal 2 binary64)) #s(literal -1/32 binary64))) (.f64 im im) (.f64 (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 re)) (/.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 (/.f64 (.f64 (.f64 (fma.f64 (/.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (.f64 (.f64 re re) #s(literal 1/2 binary64))) #s(literal -1/16 binary64) (.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/4 binary64))) (.f64 im im) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal 2 binary64)) #s(literal -1/32 binary64))) (.f64 im im) (.f64 (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal 2 binary64)) #s(literal -1/16 binary64))) (.f64 im im) (.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) (/.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 (/.f64 (.f64 (.f64 (fma.f64 (/.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (.f64 (.f64 re re) #s(literal 1/2 binary64))) #s(literal -1/16 binary64) (.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/2 binary64))) (.f64 im im) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal 2 binary64)) #s(literal -1/16 binary64))) (.f64 im im) (.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64))) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/8 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 7 binary64))) #s(literal -5/64 binary64) (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/8 binary64))) (.f64 im im) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -5/128 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 7 binary64))) (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64))) (.f64 im im) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (* im im) (*.f64 im im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (.f64 im im) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal 2 binary64)) #s(literal -1/32 binary64))) (.f64 im im) (.f64 (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 re)) (/.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 (/.f64 (.f64 (.f64 (fma.f64 (/.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (.f64 (.f64 re re) #s(literal 1/2 binary64))) #s(literal -1/16 binary64) (.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/4 binary64))) (.f64 im im) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal 2 binary64)) #s(literal -1/32 binary64))) (.f64 im im) (.f64 (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal 2 binary64)) #s(literal -1/16 binary64))) (.f64 im im) (.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) (/.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 (/.f64 (.f64 (.f64 (fma.f64 (/.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (.f64 (.f64 re re) #s(literal 1/2 binary64))) #s(literal -1/16 binary64) (.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/2 binary64))) (.f64 im im) (.f64 (.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal 2 binary64)) #s(literal -1/16 binary64))) (.f64 im im) (.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 1 binary64))) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/8 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 7 binary64))) #s(literal -5/64 binary64) (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/8 binary64))) (.f64 im im) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -5/128 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 7 binary64))) (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64))) (.f64 im im) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (- (pow re 4) (pow im 4)) (fma.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64))))
#s(approx (pow im 4) (pow.f64 im #s(literal 4 binary64)))
#s(approx (- (* re re) (* im im)) (fma.f64 re re (neg.f64 (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (.f64 #s(literal -1 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (.f64 #s(literal -1 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (.f64 #s(literal -1 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (/.f64 re im) #s(literal -1/2 binary64))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (/.f64 re im) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 im im)) #s(literal 1/4 binary64) (.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (/.f64 re im) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/12 binary64) (fma.f64 (/.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 im im)) #s(literal 1/4 binary64) (*.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1 binary64) (log.f64 im) (/.f64 re im)) (log.f64 #s(literal 2 binary64))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (fma.f64 (/.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 (neg.f64 re) im))) (log.f64 #s(literal 2 binary64))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (+.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1 binary64) (log.f64 im) (/.f64 re im)) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) #s(literal 1/2 binary64)) (*.f64 im im)))) (log.f64 #s(literal 2 binary64))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (*.f64 (fma.f64 (/.f64 re im) #s(literal -1 binary64) #s(literal 1 binary64)) im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (-.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im))) #s(literal 1 binary64)) (/.f64 re im)) im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (*.f64 (fma.f64 (/.f64 re im) #s(literal -1 binary64) #s(literal 1 binary64)) im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (-.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im))) #s(literal 1 binary64)) (/.f64 re im)) im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (*.f64 (fma.f64 (/.f64 re im) #s(literal -1 binary64) #s(literal 1 binary64)) im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (-.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im))) #s(literal 1 binary64)) (/.f64 re im)) im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im))) (.f64 (+.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1 binary64)) (.f64 im im)))
#s(approx (- (pow re 4) (pow im 4)) (*.f64 (-.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 1 binary64)) (pow.f64 im #s(literal 4 binary64))))
#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 (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 im) (fma.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) (neg.f64 (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) (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)) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 im)))) (pow.f64 im #s(literal 3 binary64))))))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 #s(literal 1/2 binary64) (+.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (/.f64 re im)) (log.f64 #s(literal 2 binary64)))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) im) #s(literal -1/4 binary64) (*.f64 #s(literal -1/2 binary64) re)) im))))
#s(approx (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) im) #s(literal -1/12 binary64) (.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) #s(literal 1/4 binary64))) im))) im))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (+.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (/.f64 re im)) (log.f64 #s(literal 2 binary64))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 #s(literal -1 binary64) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) im) #s(literal -1/2 binary64) (neg.f64 re)) im)) (log.f64 #s(literal 2 binary64))))
#s(approx (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 #s(literal -1 binary64) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (/.f64 (.f64 #s(literal -1 binary64) (+.f64 re (/.f64 (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) im) (.f64 (.f64 #s(literal 0 binary64) (*.f64 re re)) #s(literal 1/2 binary64))) im))) im)) (log.f64 #s(literal 2 binary64))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -2 binary64) re (/.f64 (neg.f64 (.f64 re re)) im)) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (neg.f64 im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 re im) #s(literal 1 binary64))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (neg.f64 im) (fma.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 im im)) #s(literal -1/8 binary64) (.f64 (.f64 re re) #s(literal 1/2 binary64))) im)) re) im) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (neg.f64 im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -2 binary64) re (/.f64 (neg.f64 (.f64 re re)) im)) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (neg.f64 im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 re im) #s(literal 1 binary64))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (neg.f64 im) (fma.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 im im)) #s(literal -1/8 binary64) (.f64 (.f64 re re) #s(literal 1/2 binary64))) im)) re) im) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (neg.f64 im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -2 binary64) re (/.f64 (neg.f64 (.f64 re re)) im)) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (* 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re)) (.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (neg.f64 im))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 re im) #s(literal 1 binary64))))
#s(approx (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re) (.f64 (neg.f64 im) (fma.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 im im)) #s(literal -1/8 binary64) (.f64 (.f64 re re) #s(literal 1/2 binary64))) im)) re) im) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (neg.f64 im))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* 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 (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 im im)))) #s(literal 1 binary64))))

eval91.0ms (1.9%)

Memory: -5.5MiB live, 91.6MiB allocated; 25ms collecting garbage
Compiler: Compiled 12 594 to 2 462 computations (80.5% saved)

prune16.0ms (0.3%)

Memory

-4.9MiB live, 41.0MiB allocated; 4ms collecting garbage

Pruning

14 alts after pruning (11 fresh and 3 done)

	Pruned	Kept	Total
New	377	4	381
Fresh	1	7	8
Picked	2	3	5
Done	0	0	0
Total	380	14	394

Accuracy

99.9%

Counts

394 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	72.7%	(.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
✓	44.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
	19.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (/.f64 (-.f64 (.f64 (.f64 re re) (.f64 re re)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (.f64 re re) (*.f64 im 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))))
	56.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
▶	13.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))))
▶	53.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) im))))
	54.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))))))
▶	14.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
✓	27.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
	41.5%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 (.f64 (-.f64 (sqrt.f64 (fma.f64 re re (.f64 im im))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
	18.2%	(.f64 #s(literal 1/2 binary64) (exp.f64 #s(approx ( (log (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (log.f64 im) #s(literal 2 binary64) (neg.f64 (log.f64 re))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 im im)) (*.f64 re re))))))
	23.7%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (/ (- (pow re 4) (pow im 4)) (- (* re re) (* im im)))) re))) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) im)))
▶	23.8%	#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1 binary64) im)) (pow.f64 re #s(literal -1/2 binary64))))

Compiler

Compiled 578 to 419 computations (27.5% saved)

series83.0ms (1.8%)

Memory

22.3MiB live, 170.7MiB allocated; 37ms collecting garbage

Counts

38 → 253

Calls

Call 1

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

Outputs
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (* 1/2 (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/2 (/ (* re (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (pow (sqrt 1/2) 2))) im)) (* 1/2 (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2)))) (* re (+ (* -1/2 (/ (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (pow (sqrt 1/2) 2)) im)) (* 1/2 (* re (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (/ (pow (sqrt 1/2) 2) (pow im 2))) (/ (pow (sqrt 1/2) 2) (pow im 2))))) (* 1/2 (/ (pow (sqrt 1/2) 4) (pow im 2))))))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2)))) (* re (+ (* -1/2 (/ (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (pow (sqrt 1/2) 2)) im)) (* re (+ (* 1/2 (* re (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (+ (* -1/2 (/ (* (pow (sqrt 1/2) 3) (+ (* -1 (/ (pow (sqrt 1/2) 2) (pow im 2))) (/ (pow (sqrt 1/2) 2) (pow im 2)))) im)) (+ (* -1/6 (/ (pow (sqrt 1/2) 6) (pow im 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (/ (pow (sqrt 1/2) 3) (pow im 3))) (+ (* 3 (/ (pow (sqrt 1/2) 3) (pow im 3))) (* 6 (+ (* -1/6 (/ (pow (sqrt 1/2) 3) (pow im 3))) (* 1/6 (/ (sqrt 1/2) (pow im 3)))))))))))))) (* 1/2 (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (/ (pow (sqrt 1/2) 2) (pow im 2))) (/ (pow (sqrt 1/2) 2) (pow im 2))))) (* 1/2 (/ (pow (sqrt 1/2) 4) (pow im 2)))))))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (* -1 (/ (* re (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (pow (sqrt 1/2) 2))) im)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (* re (+ (* -1 (/ (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (pow (sqrt 1/2) 2)) im)) (* re (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (/ (pow (sqrt 1/2) 2) (pow im 2))) (/ (pow (sqrt 1/2) 2) (pow im 2))))) (* 1/2 (/ (pow (sqrt 1/2) 4) (pow im 2)))))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (* re (+ (* -1 (/ (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (pow (sqrt 1/2) 2)) im)) (* re (+ (* re (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (+ (* -1/2 (/ (* (pow (sqrt 1/2) 3) (+ (* -1 (/ (pow (sqrt 1/2) 2) (pow im 2))) (/ (pow (sqrt 1/2) 2) (pow im 2)))) im)) (+ (* -1/6 (/ (pow (sqrt 1/2) 6) (pow im 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (/ (pow (sqrt 1/2) 3) (pow im 3))) (+ (* 3 (/ (pow (sqrt 1/2) 3) (pow im 3))) (* 6 (+ (* -1/6 (/ (pow (sqrt 1/2) 3) (pow im 3))) (* 1/6 (/ (sqrt 1/2) (pow im 3))))))))))))) (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (/ (pow (sqrt 1/2) 2) (pow im 2))) (/ (pow (sqrt 1/2) 2) (pow im 2))))) (* 1/2 (/ (pow (sqrt 1/2) 4) (pow im 2))))))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (exp (* (log (* 2 im)) (sqrt 1/2)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (log (* 2 im)) (sqrt 1/2))) (* -1 (/ (* re (* (exp (* (log (* 2 im)) (sqrt 1/2))) (sqrt 1/2))) im)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (log (* 2 im)) (sqrt 1/2))) (* re (+ (* -1 (/ (* (exp (* (log (* 2 im)) (sqrt 1/2))) (sqrt 1/2)) im)) (* 1/2 (/ (* re (* (exp (* (log (* 2 im)) (sqrt 1/2))) (pow (sqrt 1/2) 2))) (pow im 2))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (log (* 2 im)) (sqrt 1/2))) (* re (+ (* -1 (/ (* (exp (* (log (* 2 im)) (sqrt 1/2))) (sqrt 1/2)) im)) (* re (+ (* 1/2 (/ (* (exp (* (log (* 2 im)) (sqrt 1/2))) (pow (sqrt 1/2) 2)) (pow im 2))) (* re (* (exp (* (log (* 2 im)) (sqrt 1/2))) (+ (* -1/6 (/ (pow (sqrt 1/2) 3) (pow im 3))) (* 1/6 (/ (sqrt 1/2) (pow im 3)))))))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (- (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))) 2)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))) 1)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 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 (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (* 1/2 (* 1 im)) (pow re -1/2)) #s(hole binary64 (* 1/2 (* im (sqrt (/ 1 re))))))
#s(approx (pow re -1/2) #s(hole binary64 (sqrt (/ 1 re))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* -1/8 (/ (pow im 4) (pow re 3)))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (/ (+ (* -1/8 (pow im 4)) (* 1/2 (* (pow im 2) (pow re 2)))) (pow re 3))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (* -1/8 (/ (pow im 2) (pow re 3)))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (/ (+ (* -1/8 (pow im 2)) (* 1/2 (pow re 2))) (pow re 3))))
#s(approx (/ (* im im) (pow re 3)) #s(hole binary64 (/ (pow im 2) (pow re 3))))
#s(approx (pow re 3) #s(hole binary64 (pow re 3)))
#s(approx (/ 1/2 re) #s(hole binary64 (/ 1/2 re)))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (pow (sqrt 1/2) 2))) (pow re 2))) (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2)))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (pow (sqrt 1/2) 2))) (pow re 2))) (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2)))))) (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))))))))) (pow re 4)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (pow (sqrt 1/2) 2))) (pow re 2))) (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2)))))) (+ (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/96 (* (pow im 2) (* (pow (sqrt 1/2) 3) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))))))))) (+ (* -1/384 (* (pow im 6) (pow (sqrt 1/2) 6))) (* 1/720 (* (sqrt 1/2) (+ (* -15/4 (* (pow im 6) (pow (sqrt 1/2) 3))) (+ (* 180 (* (pow im 2) (* (sqrt 1/2) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))))))) (* 720 (+ (* -1/96 (* (pow im 2) (* (pow (sqrt 1/2) 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (+ (* -1/384 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 1/720 (* (sqrt 1/2) (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))))))))))))))) (pow re 6))) (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))))))))) (pow re 4))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2)))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (* -1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (pow (sqrt 1/2) 2))) (pow re 2))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (pow (sqrt 1/2) 2))) (pow re 2))) (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))))))))) (pow re 4))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (pow (sqrt 1/2) 2))) (pow re 2))) (+ (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/96 (* (pow im 2) (* (pow (sqrt 1/2) 3) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))))))))) (+ (* -1/384 (* (pow im 6) (pow (sqrt 1/2) 6))) (* 1/720 (* (sqrt 1/2) (+ (* -15/4 (* (pow im 6) (pow (sqrt 1/2) 3))) (+ (* 180 (* (pow im 2) (* (sqrt 1/2) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))))))) (* 720 (+ (* -1/96 (* (pow im 2) (* (pow (sqrt 1/2) 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (+ (* -1/384 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 1/720 (* (sqrt 1/2) (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))))))))))))))) (pow re 6)) (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))))))))) (pow re 4)))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2)))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (* -1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (sqrt 1/2))) (pow re 2))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (sqrt 1/2))) (pow re 2))) (/ (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))))) (pow re 4))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (sqrt 1/2))) (pow re 2))) (+ (/ (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/96 (* (pow im 2) (* (pow (sqrt 1/2) 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (+ (* -1/384 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 1/720 (* (sqrt 1/2) (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6))))))))) (pow re 6)) (/ (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))))) (pow re 4)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/1024 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/512 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 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) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (/ 1/2 re)))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (/ (+ 1/2 (* -1/8 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (pow (sqrt 1/2) 2))) (pow re 2))) (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re))))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (pow (sqrt 1/2) 2))) (pow re 2))) (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re))))))) (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))))))) (pow re 4)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (pow (sqrt 1/2) 2))) (pow re 2))) (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re))))))) (+ (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/720 (* (sqrt 1/2) (+ (* -180 (* (pow im 2) (* (sqrt 1/2) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))))) (+ (* 15/4 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 720 (+ (* 1/720 (* (sqrt 1/2) (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))))) (+ (* 1/384 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 1/96 (* (pow im 2) (* (pow (sqrt 1/2) 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))))))))) (+ (* 1/384 (* (pow im 6) (pow (sqrt 1/2) 6))) (* 1/96 (* (pow im 2) (* (pow (sqrt 1/2) 3) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))))))))) (pow re 6))) (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))))))) (pow re 4))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (* 1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (pow (sqrt 1/2) 2))) (pow re 2))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (pow (sqrt 1/2) 2))) (pow re 2))) (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))))))) (pow re 4))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (pow (sqrt 1/2) 2))) (pow re 2))) (+ (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/720 (* (sqrt 1/2) (+ (* -180 (* (pow im 2) (* (sqrt 1/2) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))))) (+ (* 15/4 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 720 (+ (* 1/720 (* (sqrt 1/2) (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))))) (+ (* 1/384 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 1/96 (* (pow im 2) (* (pow (sqrt 1/2) 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))))))))) (+ (* 1/384 (* (pow im 6) (pow (sqrt 1/2) 6))) (* 1/96 (* (pow im 2) (* (pow (sqrt 1/2) 3) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))))))))) (pow re 6)) (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))))))) (pow re 4)))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (* 1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (sqrt 1/2))) (pow re 2))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (sqrt 1/2))) (pow re 2))) (/ (* (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))) (pow re 4))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (sqrt 1/2))) (pow re 2))) (+ (/ (* (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/720 (* (sqrt 1/2) (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))))) (+ (* 1/384 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 1/96 (* (pow im 2) (* (pow (sqrt 1/2) 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))))) (pow re 6)) (/ (* (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))) (pow re 4)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -4 re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -2 re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/64 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1/4 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/32 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -4 re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -2 re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* (* 1/2 (* 1 im)) (pow re -1/2)) #s(hole binary64 (* 1/2 (* (* im (pow (sqrt -1) 2)) (sqrt (/ 1 re))))))
#s(approx (pow re -1/2) #s(hole binary64 (* (sqrt (/ 1 re)) (pow (sqrt -1) 2))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (pow im 2)) (* 1/8 (/ (pow im 4) (pow re 2)))) re))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (* -1 (/ (- (* 1/8 (/ (pow im 2) (pow re 2))) 1/2) re))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (pow (sqrt 1/2) 2))) (pow re 2))) (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im)))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im)))))) (* (pow im 2) (+ (* -1/8 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (pow (sqrt 1/2) 2)) (pow re 2))) (* 1/2 (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* 1/32 (/ (pow (sqrt 1/2) 4) (pow re 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 24 (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4)))))))))))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im)))))) (* (pow im 2) (+ (* -1/8 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (pow (sqrt 1/2) 2)) (pow re 2))) (* (pow im 2) (+ (* 1/2 (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* 1/32 (/ (pow (sqrt 1/2) 4) (pow re 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 24 (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))))))))) (* 1/2 (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* -1/96 (/ (* (pow (sqrt 1/2) 3) (+ (* -3/4 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 24 (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))))) (pow re 2))) (+ (* -1/384 (/ (pow (sqrt 1/2) 6) (pow re 6))) (* 1/720 (* (sqrt 1/2) (+ (* -15/4 (/ (pow (sqrt 1/2) 3) (pow re 6))) (+ (* 180 (/ (* (sqrt 1/2) (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))) (pow re 2))) (* 720 (+ (* -5/96 (/ (sqrt 1/2) (pow re 6))) (+ (* -3/128 (/ (pow (sqrt 1/2) 2) (pow re 6))) (* -1/384 (/ (pow (sqrt 1/2) 3) (pow re 6))))))))))))))))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im)))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (* -1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (pow (sqrt 1/2) 2))) (pow re 2))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (* (pow im 2) (+ (* -1/4 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (pow (sqrt 1/2) 2)) (pow re 2))) (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* 1/32 (/ (pow (sqrt 1/2) 4) (pow re 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 24 (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))))))))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (* (pow im 2) (+ (* -1/4 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (pow (sqrt 1/2) 2)) (pow re 2))) (* (pow im 2) (+ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* 1/32 (/ (pow (sqrt 1/2) 4) (pow re 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 24 (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4)))))))))) (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* -1/96 (/ (* (pow (sqrt 1/2) 3) (+ (* -3/4 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 24 (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))))) (pow re 2))) (+ (* -1/384 (/ (pow (sqrt 1/2) 6) (pow re 6))) (* 1/720 (* (sqrt 1/2) (+ (* -15/4 (/ (pow (sqrt 1/2) 3) (pow re 6))) (+ (* 180 (/ (* (sqrt 1/2) (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))) (pow re 2))) (* 720 (+ (* -5/96 (/ (sqrt 1/2) (pow re 6))) (+ (* -3/128 (/ (pow (sqrt 1/2) 2) (pow re 6))) (* -1/384 (/ (pow (sqrt 1/2) 3) (pow re 6)))))))))))))))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im)))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (* -1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (sqrt 1/2))) (pow re 2))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (* (pow im 2) (+ (* -1/4 (/ (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (sqrt 1/2)) (pow re 2))) (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4)))))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (* (pow im 2) (+ (* -1/4 (/ (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (sqrt 1/2)) (pow re 2))) (* (pow im 2) (+ (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))) (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* -5/96 (/ (sqrt 1/2) (pow re 6))) (+ (* -3/128 (/ (pow (sqrt 1/2) 2) (pow re 6))) (* -1/384 (/ (pow (sqrt 1/2) 3) (pow re 6))))))))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/64 (/ (pow im 2) (pow re 7))) (* 1/8 (/ 1 (pow re 5))))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/128 (/ (pow im 2) (pow re 7))) (* 1/16 (/ 1 (pow re 5))))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/32 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/4 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/4 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/4 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/16 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/2 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/2 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (* 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 (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (* 1 im)) #s(hole binary64 (* 1/2 im)))
#s(approx (* 1 im) #s(hole binary64 im))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/2 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (pow (sqrt 1/2) 2))) im)) (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im))))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/2 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (pow (sqrt 1/2) 2))) im)) (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im))))))) (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))) (pow im 2)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/2 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (pow (sqrt 1/2) 2))) im)) (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im))))))) (+ (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/2 (* re (* (pow (sqrt 1/2) 3) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 6))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (* (pow re 3) (pow (sqrt 1/2) 3))) (+ (* 6 (* re (* (sqrt 1/2) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))) (* 6 (+ (* -1/2 (* re (* (pow (sqrt 1/2) 2) (+ (* -1 (pow re 2)) (pow re 2))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (pow re 3)) (* 3 (pow re 3))))))))))))))) (pow im 3))) (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))) (pow im 2))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (* -1 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (pow (sqrt 1/2) 2))) im)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (pow (sqrt 1/2) 2))) im)) (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))) (pow im 2))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (pow (sqrt 1/2) 2))) im)) (+ (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/2 (* re (* (pow (sqrt 1/2) 3) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 6))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (* (pow re 3) (pow (sqrt 1/2) 3))) (+ (* 6 (* re (* (sqrt 1/2) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))) (* 6 (+ (* -1/2 (* re (* (pow (sqrt 1/2) 2) (+ (* -1 (pow re 2)) (pow re 2))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (pow re 3)) (* 3 (pow re 3))))))))))))))) (pow im 3)) (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))) (pow im 2)))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (* -1 (/ (* re (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (sqrt 1/2))) im)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1 (/ (* re (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (sqrt 1/2))) im)) (/ (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))) (pow im 2))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1 (/ (* re (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (sqrt 1/2))) im)) (+ (/ (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/2 (* re (* (pow (sqrt 1/2) 2) (+ (* -1 (pow re 2)) (pow re 2))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (pow re 3)) (* 3 (pow re 3)))))))) (pow im 3)) (/ (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))) (pow im 2)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (* -1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))) (/ re im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 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) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* (pow im 4) (- (* 1/2 (/ 1 (* (pow im 2) re))) (* 1/8 (/ 1 (pow re 3)))))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (* (pow im 2) (- (* 1/2 (/ 1 (* (pow im 2) re))) (* 1/8 (/ 1 (pow re 3)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im))))))) (* 1/2 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (pow (sqrt 1/2) 2))) im)))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (pow (sqrt 1/2) 2)))) (* -1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))) im))) im)) (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* -1/2 (* re (* (pow (sqrt 1/2) 3) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 6))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (* (pow re 3) (pow (sqrt 1/2) 3))) (+ (* 6 (* re (* (sqrt 1/2) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))) (* 6 (+ (* -1/2 (* re (* (pow (sqrt 1/2) 2) (+ (* -1 (pow re 2)) (pow re 2))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (pow re 3)) (* 3 (pow re 3))))))))))))))) im)) (* 1/2 (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))))) im)) (* -1/2 (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (pow (sqrt 1/2) 2))))) im)) (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (pow (sqrt 1/2) 2))) im))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (pow (sqrt 1/2) 2)))) (* -1 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))) im))) im)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (pow (sqrt 1/2) 2)))) (* -1 (/ (+ (* -1 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* -1/2 (* re (* (pow (sqrt 1/2) 3) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 6))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (* (pow re 3) (pow (sqrt 1/2) 3))) (+ (* 6 (* re (* (sqrt 1/2) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))) (* 6 (+ (* -1/2 (* re (* (pow (sqrt 1/2) 2) (+ (* -1 (pow re 2)) (pow re 2))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (pow re 3)) (* 3 (pow re 3))))))))))))))) im)) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4)))))) im))) im)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (/ (* re (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (sqrt 1/2))) im))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (* re (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (sqrt 1/2)))) (* -1 (/ (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))) im))) im)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (* re (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (sqrt 1/2)))) (* -1 (/ (+ (* -1 (/ (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* -1/2 (* re (* (pow (sqrt 1/2) 2) (+ (* -1 (pow re 2)) (pow re 2))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (pow re 3)) (* 3 (pow re 3)))))))) im)) (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))) im))) im)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im))) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im)) re) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 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
28.0ms	re	@	-inf	((* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 (sqrt 1/2) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (* (* 1/2 (* 1 im)) (pow re -1/2)) (* 1/2 (* 1 im)) (* 1 im) 1 (pow re -1/2) -1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ (* im im) (pow re 3)) (pow re 3) 3 -1/8 (/ 1/2 re))
11.0ms	re	@	inf	((* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 (sqrt 1/2) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (* (* 1/2 (* 1 im)) (pow re -1/2)) (* 1/2 (* 1 im)) (* 1 im) 1 (pow re -1/2) -1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ (* im im) (pow re 3)) (pow re 3) 3 -1/8 (/ 1/2 re))
11.0ms	im	@	inf	((* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 (sqrt 1/2) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (* (* 1/2 (* 1 im)) (pow re -1/2)) (* 1/2 (* 1 im)) (* 1 im) 1 (pow re -1/2) -1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ (* im im) (pow re 3)) (pow re 3) 3 -1/8 (/ 1/2 re))
9.0ms	im	@	0	((* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 (sqrt 1/2) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (* (* 1/2 (* 1 im)) (pow re -1/2)) (* 1/2 (* 1 im)) (* 1 im) 1 (pow re -1/2) -1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ (* im im) (pow re 3)) (pow re 3) 3 -1/8 (/ 1/2 re))
9.0ms	re	@	0	((* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 (sqrt 1/2) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (* (* 1/2 (* 1 im)) (pow re -1/2)) (* 1/2 (* 1 im)) (* 1 im) 1 (pow re -1/2) -1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ (* im im) (pow re 3)) (pow re 3) 3 -1/8 (/ 1/2 re))

rewrite196.0ms (4.1%)

Memory

-10.9MiB live, 319.3MiB allocated; 40ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1433	14541
0	1470	11460
0	8289	10919

Stop Event

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

Counts

291 → 364

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
#s(literal 1/2 binary64)
(pow.f64 (pow.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))
(pow.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))
(*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))
(-.f64 (hypot.f64 im re) re)
(hypot.f64 im re)
im
re
#s(literal 2 binary64)
(sqrt.f64 #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))
#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 (*.f64 im im) re))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 im im) re)
(*.f64 im im)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1 binary64) im)) (pow.f64 re #s(literal -1/2 binary64))))
(.f64 (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1 binary64) im)) (pow.f64 re #s(literal -1/2 binary64)))
(.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1 binary64) im))
(*.f64 #s(literal 1 binary64) im)
#s(literal 1 binary64)
(pow.f64 re #s(literal -1/2 binary64))
#s(literal -1/2 binary64)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))))
(sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( re re) (* im im))) re) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))))
(.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( re re) (* im im))) re) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
(.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))
(fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re))
(/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64)))
(pow.f64 re #s(literal 3 binary64))
#s(literal 3 binary64)
#s(literal -1/8 binary64)
(/.f64 #s(literal 1/2 binary64) re)
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (* 1/2 (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/2 (/ (* re (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (pow (sqrt 1/2) 2))) im)) (* 1/2 (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2)))) (* re (+ (* -1/2 (/ (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (pow (sqrt 1/2) 2)) im)) (* 1/2 (* re (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (/ (pow (sqrt 1/2) 2) (pow im 2))) (/ (pow (sqrt 1/2) 2) (pow im 2))))) (* 1/2 (/ (pow (sqrt 1/2) 4) (pow im 2))))))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2)))) (* re (+ (* -1/2 (/ (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (pow (sqrt 1/2) 2)) im)) (* re (+ (* 1/2 (* re (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (+ (* -1/2 (/ (* (pow (sqrt 1/2) 3) (+ (* -1 (/ (pow (sqrt 1/2) 2) (pow im 2))) (/ (pow (sqrt 1/2) 2) (pow im 2)))) im)) (+ (* -1/6 (/ (pow (sqrt 1/2) 6) (pow im 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (/ (pow (sqrt 1/2) 3) (pow im 3))) (+ (* 3 (/ (pow (sqrt 1/2) 3) (pow im 3))) (* 6 (+ (* -1/6 (/ (pow (sqrt 1/2) 3) (pow im 3))) (* 1/6 (/ (sqrt 1/2) (pow im 3)))))))))))))) (* 1/2 (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (/ (pow (sqrt 1/2) 2) (pow im 2))) (/ (pow (sqrt 1/2) 2) (pow im 2))))) (* 1/2 (/ (pow (sqrt 1/2) 4) (pow im 2)))))))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (* -1 (/ (* re (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (pow (sqrt 1/2) 2))) im)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (* re (+ (* -1 (/ (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (pow (sqrt 1/2) 2)) im)) (* re (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (/ (pow (sqrt 1/2) 2) (pow im 2))) (/ (pow (sqrt 1/2) 2) (pow im 2))))) (* 1/2 (/ (pow (sqrt 1/2) 4) (pow im 2)))))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (* re (+ (* -1 (/ (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (pow (sqrt 1/2) 2)) im)) (* re (+ (* re (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (+ (* -1/2 (/ (* (pow (sqrt 1/2) 3) (+ (* -1 (/ (pow (sqrt 1/2) 2) (pow im 2))) (/ (pow (sqrt 1/2) 2) (pow im 2)))) im)) (+ (* -1/6 (/ (pow (sqrt 1/2) 6) (pow im 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (/ (pow (sqrt 1/2) 3) (pow im 3))) (+ (* 3 (/ (pow (sqrt 1/2) 3) (pow im 3))) (* 6 (+ (* -1/6 (/ (pow (sqrt 1/2) 3) (pow im 3))) (* 1/6 (/ (sqrt 1/2) (pow im 3))))))))))))) (* (exp (* (log (* 2 im)) (pow (sqrt 1/2) 2))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (/ (pow (sqrt 1/2) 2) (pow im 2))) (/ (pow (sqrt 1/2) 2) (pow im 2))))) (* 1/2 (/ (pow (sqrt 1/2) 4) (pow im 2))))))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (exp (* (log (* 2 im)) (sqrt 1/2)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (log (* 2 im)) (sqrt 1/2))) (* -1 (/ (* re (* (exp (* (log (* 2 im)) (sqrt 1/2))) (sqrt 1/2))) im)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (log (* 2 im)) (sqrt 1/2))) (* re (+ (* -1 (/ (* (exp (* (log (* 2 im)) (sqrt 1/2))) (sqrt 1/2)) im)) (* 1/2 (/ (* re (* (exp (* (log (* 2 im)) (sqrt 1/2))) (pow (sqrt 1/2) 2))) (pow im 2))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (log (* 2 im)) (sqrt 1/2))) (* re (+ (* -1 (/ (* (exp (* (log (* 2 im)) (sqrt 1/2))) (sqrt 1/2)) im)) (* re (+ (* 1/2 (/ (* (exp (* (log (* 2 im)) (sqrt 1/2))) (pow (sqrt 1/2) 2)) (pow im 2))) (* re (* (exp (* (log (* 2 im)) (sqrt 1/2))) (+ (* -1/6 (/ (pow (sqrt 1/2) 3) (pow im 3))) (* 1/6 (/ (sqrt 1/2) (pow im 3)))))))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (- (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))) 2)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))) 1)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 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 (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (* 1/2 (* 1 im)) (pow re -1/2)) #s(hole binary64 (* 1/2 (* im (sqrt (/ 1 re))))))
#s(approx (pow re -1/2) #s(hole binary64 (sqrt (/ 1 re))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* -1/8 (/ (pow im 4) (pow re 3)))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (/ (+ (* -1/8 (pow im 4)) (* 1/2 (* (pow im 2) (pow re 2)))) (pow re 3))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (* -1/8 (/ (pow im 2) (pow re 3)))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (/ (+ (* -1/8 (pow im 2)) (* 1/2 (pow re 2))) (pow re 3))))
#s(approx (/ (* im im) (pow re 3)) #s(hole binary64 (/ (pow im 2) (pow re 3))))
#s(approx (pow re 3) #s(hole binary64 (pow re 3)))
#s(approx (/ 1/2 re) #s(hole binary64 (/ 1/2 re)))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (pow (sqrt 1/2) 2))) (pow re 2))) (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2)))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (pow (sqrt 1/2) 2))) (pow re 2))) (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2)))))) (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))))))))) (pow re 4)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (pow (sqrt 1/2) 2))) (pow re 2))) (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2)))))) (+ (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/96 (* (pow im 2) (* (pow (sqrt 1/2) 3) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))))))))) (+ (* -1/384 (* (pow im 6) (pow (sqrt 1/2) 6))) (* 1/720 (* (sqrt 1/2) (+ (* -15/4 (* (pow im 6) (pow (sqrt 1/2) 3))) (+ (* 180 (* (pow im 2) (* (sqrt 1/2) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))))))) (* 720 (+ (* -1/96 (* (pow im 2) (* (pow (sqrt 1/2) 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (+ (* -1/384 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 1/720 (* (sqrt 1/2) (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))))))))))))))) (pow re 6))) (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))))))))) (pow re 4))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2)))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (* -1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (pow (sqrt 1/2) 2))) (pow re 2))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (pow (sqrt 1/2) 2))) (pow re 2))) (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))))))))) (pow re 4))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (pow (sqrt 1/2) 2))) (pow re 2))) (+ (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/96 (* (pow im 2) (* (pow (sqrt 1/2) 3) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))))))))) (+ (* -1/384 (* (pow im 6) (pow (sqrt 1/2) 6))) (* 1/720 (* (sqrt 1/2) (+ (* -15/4 (* (pow im 6) (pow (sqrt 1/2) 3))) (+ (* 180 (* (pow im 2) (* (sqrt 1/2) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))))))) (* 720 (+ (* -1/96 (* (pow im 2) (* (pow (sqrt 1/2) 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (+ (* -1/384 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 1/720 (* (sqrt 1/2) (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))))))))))))))) (pow re 6)) (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))))))))) (pow re 4)))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2)))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (* -1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (sqrt 1/2))) (pow re 2))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (sqrt 1/2))) (pow re 2))) (/ (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))))) (pow re 4))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (sqrt 1/2))) (pow re 2))) (+ (/ (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* -1/96 (* (pow im 2) (* (pow (sqrt 1/2) 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (+ (* -1/384 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 1/720 (* (sqrt 1/2) (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6))))))))) (pow re 6)) (/ (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (log (pow im 2))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))))) (pow re 4)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/1024 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/512 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 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) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (/ 1/2 re)))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (/ (+ 1/2 (* -1/8 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (pow (sqrt 1/2) 2))) (pow re 2))) (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re))))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (pow (sqrt 1/2) 2))) (pow re 2))) (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re))))))) (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))))))) (pow re 4)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (pow (sqrt 1/2) 2))) (pow re 2))) (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re))))))) (+ (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/720 (* (sqrt 1/2) (+ (* -180 (* (pow im 2) (* (sqrt 1/2) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))))) (+ (* 15/4 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 720 (+ (* 1/720 (* (sqrt 1/2) (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))))) (+ (* 1/384 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 1/96 (* (pow im 2) (* (pow (sqrt 1/2) 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))))))))) (+ (* 1/384 (* (pow im 6) (pow (sqrt 1/2) 6))) (* 1/96 (* (pow im 2) (* (pow (sqrt 1/2) 3) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))))))))) (pow re 6))) (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))))))) (pow re 4))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (* 1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (pow (sqrt 1/2) 2))) (pow re 2))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (pow (sqrt 1/2) 2))) (pow re 2))) (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))))))) (pow re 4))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (pow (sqrt 1/2) 2))) (pow re 2))) (+ (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/720 (* (sqrt 1/2) (+ (* -180 (* (pow im 2) (* (sqrt 1/2) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))))) (+ (* 15/4 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 720 (+ (* 1/720 (* (sqrt 1/2) (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))))) (+ (* 1/384 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 1/96 (* (pow im 2) (* (pow (sqrt 1/2) 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))))))))) (+ (* 1/384 (* (pow im 6) (pow (sqrt 1/2) 6))) (* 1/96 (* (pow im 2) (* (pow (sqrt 1/2) 3) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))))))))) (pow re 6)) (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 24 (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))))))) (pow re 4)))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (* 1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (sqrt 1/2))) (pow re 2))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (sqrt 1/2))) (pow re 2))) (/ (* (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))) (pow re 4))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (sqrt 1/2))) (pow re 2))) (+ (/ (* (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/720 (* (sqrt 1/2) (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))))) (+ (* 1/384 (* (pow im 6) (pow (sqrt 1/2) 3))) (* 1/96 (* (pow im 2) (* (pow (sqrt 1/2) 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))))) (pow re 6)) (/ (* (exp (* (sqrt 1/2) (+ (log 4) (* -1 (log (/ -1 re)))))) (+ (* 1/32 (* (pow im 4) (pow (sqrt 1/2) 2))) (* 1/24 (* (sqrt 1/2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))) (pow re 4)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -4 re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -2 re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/64 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1/4 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/32 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -4 re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -2 re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* (* 1/2 (* 1 im)) (pow re -1/2)) #s(hole binary64 (* 1/2 (* (* im (pow (sqrt -1) 2)) (sqrt (/ 1 re))))))
#s(approx (pow re -1/2) #s(hole binary64 (* (sqrt (/ 1 re)) (pow (sqrt -1) 2))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (pow im 2)) (* 1/8 (/ (pow im 4) (pow re 2)))) re))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (* -1 (/ (- (* 1/8 (/ (pow im 2) (pow re 2))) 1/2) re))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/8 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (pow (sqrt 1/2) 2))) (pow re 2))) (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im)))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im)))))) (* (pow im 2) (+ (* -1/8 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (pow (sqrt 1/2) 2)) (pow re 2))) (* 1/2 (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* 1/32 (/ (pow (sqrt 1/2) 4) (pow re 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 24 (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4)))))))))))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im)))))) (* (pow im 2) (+ (* -1/8 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (pow (sqrt 1/2) 2)) (pow re 2))) (* (pow im 2) (+ (* 1/2 (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* 1/32 (/ (pow (sqrt 1/2) 4) (pow re 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 24 (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))))))))) (* 1/2 (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* -1/96 (/ (* (pow (sqrt 1/2) 3) (+ (* -3/4 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 24 (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))))) (pow re 2))) (+ (* -1/384 (/ (pow (sqrt 1/2) 6) (pow re 6))) (* 1/720 (* (sqrt 1/2) (+ (* -15/4 (/ (pow (sqrt 1/2) 3) (pow re 6))) (+ (* 180 (/ (* (sqrt 1/2) (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))) (pow re 2))) (* 720 (+ (* -5/96 (/ (sqrt 1/2) (pow re 6))) (+ (* -3/128 (/ (pow (sqrt 1/2) 2) (pow re 6))) (* -1/384 (/ (pow (sqrt 1/2) 3) (pow re 6))))))))))))))))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im)))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (* -1/4 (/ (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (pow (sqrt 1/2) 2))) (pow re 2))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (* (pow im 2) (+ (* -1/4 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (pow (sqrt 1/2) 2)) (pow re 2))) (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* 1/32 (/ (pow (sqrt 1/2) 4) (pow re 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 24 (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))))))))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (* (pow im 2) (+ (* -1/4 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (pow (sqrt 1/2) 2)) (pow re 2))) (* (pow im 2) (+ (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* 1/32 (/ (pow (sqrt 1/2) 4) (pow re 4))) (* 1/24 (* (sqrt 1/2) (+ (* -3/4 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 24 (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4)))))))))) (* (pow im 2) (* (exp (* (pow (sqrt 1/2) 2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* -1/96 (/ (* (pow (sqrt 1/2) 3) (+ (* -3/4 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 24 (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))))) (pow re 2))) (+ (* -1/384 (/ (pow (sqrt 1/2) 6) (pow re 6))) (* 1/720 (* (sqrt 1/2) (+ (* -15/4 (/ (pow (sqrt 1/2) 3) (pow re 6))) (+ (* 180 (/ (* (sqrt 1/2) (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))) (pow re 2))) (* 720 (+ (* -5/96 (/ (sqrt 1/2) (pow re 6))) (+ (* -3/128 (/ (pow (sqrt 1/2) 2) (pow re 6))) (* -1/384 (/ (pow (sqrt 1/2) 3) (pow re 6)))))))))))))))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im)))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (* -1/4 (/ (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (sqrt 1/2))) (pow re 2))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (* (pow im 2) (+ (* -1/4 (/ (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (sqrt 1/2)) (pow re 2))) (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4)))))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (* (pow im 2) (+ (* -1/4 (/ (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (sqrt 1/2)) (pow re 2))) (* (pow im 2) (+ (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* 1/32 (/ (pow (sqrt 1/2) 2) (pow re 4))) (* 3/32 (/ (sqrt 1/2) (pow re 4))))) (* (pow im 2) (* (exp (* (sqrt 1/2) (+ (log (/ 1 re)) (* 2 (log im))))) (+ (* -5/96 (/ (sqrt 1/2) (pow re 6))) (+ (* -3/128 (/ (pow (sqrt 1/2) 2) (pow re 6))) (* -1/384 (/ (pow (sqrt 1/2) 3) (pow re 6))))))))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/64 (/ (pow im 2) (pow re 7))) (* 1/8 (/ 1 (pow re 5))))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/128 (/ (pow im 2) (pow re 7))) (* 1/16 (/ 1 (pow re 5))))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/32 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/4 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/4 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/4 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/16 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/2 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/2 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (* 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 (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (* 1 im)) #s(hole binary64 (* 1/2 im)))
#s(approx (* 1 im) #s(hole binary64 im))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/2 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (pow (sqrt 1/2) 2))) im)) (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im))))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/2 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (pow (sqrt 1/2) 2))) im)) (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im))))))) (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))) (pow im 2)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1/2 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (pow (sqrt 1/2) 2))) im)) (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im))))))) (+ (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/2 (* re (* (pow (sqrt 1/2) 3) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 6))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (* (pow re 3) (pow (sqrt 1/2) 3))) (+ (* 6 (* re (* (sqrt 1/2) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))) (* 6 (+ (* -1/2 (* re (* (pow (sqrt 1/2) 2) (+ (* -1 (pow re 2)) (pow re 2))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (pow re 3)) (* 3 (pow re 3))))))))))))))) (pow im 3))) (* 1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))) (pow im 2))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (* -1 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (pow (sqrt 1/2) 2))) im)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (pow (sqrt 1/2) 2))) im)) (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))) (pow im 2))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (pow (sqrt 1/2) 2))) im)) (+ (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/2 (* re (* (pow (sqrt 1/2) 3) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 6))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (* (pow re 3) (pow (sqrt 1/2) 3))) (+ (* 6 (* re (* (sqrt 1/2) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))) (* 6 (+ (* -1/2 (* re (* (pow (sqrt 1/2) 2) (+ (* -1 (pow re 2)) (pow re 2))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (pow re 3)) (* 3 (pow re 3))))))))))))))) (pow im 3)) (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))) (pow im 2)))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (* -1 (/ (* re (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (sqrt 1/2))) im)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1 (/ (* re (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (sqrt 1/2))) im)) (/ (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))) (pow im 2))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1 (/ (* re (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (sqrt 1/2))) im)) (+ (/ (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/2 (* re (* (pow (sqrt 1/2) 2) (+ (* -1 (pow re 2)) (pow re 2))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (pow re 3)) (* 3 (pow re 3)))))))) (pow im 3)) (/ (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))) (pow im 2)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (* -1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))) (/ re im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 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) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* (pow im 4) (- (* 1/2 (/ 1 (* (pow im 2) re))) (* 1/8 (/ 1 (pow re 3)))))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (* (pow im 2) (- (* 1/2 (/ 1 (* (pow im 2) re))) (* 1/8 (/ 1 (pow re 3)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im))))))) (* 1/2 (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (pow (sqrt 1/2) 2))) im)))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (pow (sqrt 1/2) 2)))) (* -1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))) im))) im)) (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* -1/2 (* re (* (pow (sqrt 1/2) 3) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 6))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (* (pow re 3) (pow (sqrt 1/2) 3))) (+ (* 6 (* re (* (sqrt 1/2) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))) (* 6 (+ (* -1/2 (* re (* (pow (sqrt 1/2) 2) (+ (* -1 (pow re 2)) (pow re 2))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (pow re 3)) (* 3 (pow re 3))))))))))))))) im)) (* 1/2 (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))))) im)) (* -1/2 (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (pow (sqrt 1/2) 2))))) im)) (* 1/2 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (/ (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (pow (sqrt 1/2) 2))) im))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (pow (sqrt 1/2) 2)))) (* -1 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4))))) im))) im)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (* re (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (pow (sqrt 1/2) 2)))) (* -1 (/ (+ (* -1 (/ (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* -1/2 (* re (* (pow (sqrt 1/2) 3) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 6))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (* (pow re 3) (pow (sqrt 1/2) 3))) (+ (* 6 (* re (* (sqrt 1/2) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))))) (* 6 (+ (* -1/2 (* re (* (pow (sqrt 1/2) 2) (+ (* -1 (pow re 2)) (pow re 2))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (pow re 3)) (* 3 (pow re 3))))))))))))))) im)) (* (exp (* (pow (sqrt 1/2) 2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (* (pow re 2) (pow (sqrt 1/2) 2))) (* 2 (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 4)))))) im))) im)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (/ (* re (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (sqrt 1/2))) im))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (* re (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (sqrt 1/2)))) (* -1 (/ (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2))))) im))) im)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) #s(hole binary64 (+ (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (* re (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (sqrt 1/2)))) (* -1 (/ (+ (* -1 (/ (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* -1/2 (* re (* (pow (sqrt 1/2) 2) (+ (* -1 (pow re 2)) (pow re 2))))) (+ (* -1/6 (* (pow re 3) (pow (sqrt 1/2) 3))) (* 1/6 (* (sqrt 1/2) (+ (* -2 (pow re 3)) (* 3 (pow re 3)))))))) im)) (* (exp (* (sqrt 1/2) (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/2 (* (sqrt 1/2) (+ (* -1 (pow re 2)) (pow re 2)))) (* 1/2 (* (pow re 2) (pow (sqrt 1/2) 2)))))) im))) im)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im))) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im)) re) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 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 #s(literal 1/2 binary64) (pow.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 1/2 binary64)
(.f64 (pow.f64 (pow.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(pow.f64 (pow.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))
(pow.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(exp.f64 (.f64 (log.f64 (pow.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))))
(.f64 (pow.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))) (pow.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (-.f64 (hypot.f64 re im) re) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 1/2 binary64))))
(pow.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
(*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (hypot.f64 re im) (hypot.f64 re im)) (.f64 re re)) (+.f64 (hypot.f64 re im) re))
(/.f64 (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 (hypot.f64 re im) (hypot.f64 re im) (fma.f64 re re (*.f64 (hypot.f64 re im) re))))
(-.f64 (hypot.f64 re im) re)
(pow.f64 (fma.f64 re re (*.f64 im im)) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 re re (*.f64 im im)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im)
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
im
re
#s(literal 2 binary64)
(pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* im im) (* re re))) re) im))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (- (sqrt (+ ( im im) (* re re))) re) im)))
(pow.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( im im) (* re re))) re) im)) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( im im) (* re re))) re) im)))
(.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( im im) (* re re))) re) im))
(+.f64 #s(approx (- (sqrt (+ (* im im) (* re re))) re) im) #s(approx (- (sqrt (+ (* im im) (* re re))) re) im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) im)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))
(*.f64 im (/.f64 im re))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 re))
(/.f64 (*.f64 im im) re)
(*.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 im #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) im) (pow.f64 re #s(literal -1/2 binary64))))
(.f64 (.f64 #s(literal 1/2 binary64) im) (pow.f64 re #s(literal -1/2 binary64)))
(.f64 #s(literal 1/2 binary64) (.f64 im (pow.f64 re #s(literal -1/2 binary64))))
(*.f64 #s(literal 1/2 binary64) im)
im
#s(literal 1 binary64)
(*.f64 (pow.f64 re #s(literal -1/4 binary64)) (pow.f64 re #s(literal -1/4 binary64)))
(pow.f64 re #s(literal -1/2 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal -1/2 binary64)))
#s(literal -1/2 binary64)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (- (sqrt (+ ( im im) (* re re))) re) (.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))))
(pow.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( im im) (* re re))) re) (.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( im im) (* re re))) re) (.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))))
(.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( im im) (* re re))) re) (.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))
(+.f64 #s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im))) #s(approx (- (sqrt (+ ( im im) (* re re))) re) (.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
(.f64 (.f64 (fma.f64 (*.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) im) im)
(.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 im im) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 3 binary64))) (/.f64 (.f64 (.f64 im im) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 3 binary64)))) (.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 #s(literal 1/2 binary64) re))) (-.f64 (/.f64 (.f64 (.f64 im im) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) re)))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 im im) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 3 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 #s(literal 1/2 binary64) re) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 (.f64 im im) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 3 binary64))) (/.f64 (.f64 (.f64 im im) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 3 binary64))) (-.f64 (.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 #s(literal 1/2 binary64) re)) (.f64 (/.f64 (.f64 (.f64 im im) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) re)))))
(fma.f64 (*.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re))
(fma.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)) (/.f64 (.f64 (.f64 im im) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 3 binary64))))
(+.f64 (/.f64 (.f64 (.f64 im im) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) re))
(+.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 (.f64 im im) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 3 binary64))))
(*.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64))))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
(/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64)))
(*.f64 (pow.f64 re #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3/2 binary64)))
(.f64 (.f64 re re) re)
(.f64 re (.f64 re re))
(pow.f64 re #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 3 binary64)))
#s(literal 3 binary64)
#s(literal -1/8 binary64)
(*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))
(/.f64 #s(literal -1/2 binary64) (neg.f64 re))
(/.f64 #s(literal 1/2 binary64) re)
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) im) (.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 re (fma.f64 (.f64 #s(literal 1/2 binary64) re) (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)) (fma.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 im im))) (/.f64 #s(literal 1/8 binary64) (.f64 im im)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) im))) (.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 re (fma.f64 re (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 re (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (/.f64 (.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 im im))) im)) (fma.f64 (.f64 #s(literal 1/6 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) im) #s(literal 3 binary64)) (fma.f64 #s(literal 6 binary64) (fma.f64 #s(literal 1/6 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 im #s(literal 3 binary64))) (.f64 #s(literal -1/6 binary64) (pow.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) im) #s(literal 3 binary64)))) (.f64 #s(literal 3 binary64) (pow.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) im) #s(literal 3 binary64))))) (/.f64 #s(literal -1/48 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)) (fma.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 im im))) (/.f64 #s(literal 1/8 binary64) (.f64 im im)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) im))) (.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) im) (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (fma.f64 re (fma.f64 (.f64 re (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))) (fma.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 im im))) (/.f64 #s(literal 1/8 binary64) (.f64 im im))) (neg.f64 (/.f64 (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) im))) (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (fma.f64 re (fma.f64 re (fma.f64 (.f64 re (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (/.f64 (.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 im im))) im)) (fma.f64 (.f64 #s(literal 1/6 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) im) #s(literal 3 binary64)) (fma.f64 #s(literal 6 binary64) (fma.f64 #s(literal 1/6 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 im #s(literal 3 binary64))) (.f64 #s(literal -1/6 binary64) (pow.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) im) #s(literal 3 binary64)))) (.f64 #s(literal 3 binary64) (pow.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) im) #s(literal 3 binary64))))) (/.f64 #s(literal -1/48 binary64) (pow.f64 im #s(literal 3 binary64))))) (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)) (fma.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 im im))) (/.f64 #s(literal 1/8 binary64) (.f64 im im))))) (neg.f64 (/.f64 (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) im))) (pow.f64 (.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (pow.f64 (*.f64 #s(literal 2 binary64) im) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (fma.f64 #s(literal -1 binary64) (.f64 re (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) im))) (pow.f64 (.f64 #s(literal 2 binary64) im) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (fma.f64 re (fma.f64 #s(literal 1/2 binary64) (.f64 re (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) (.f64 im im)))) (neg.f64 (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) im)))) (pow.f64 (*.f64 #s(literal 2 binary64) im) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (fma.f64 re (fma.f64 re (fma.f64 (.f64 re (pow.f64 (.f64 #s(literal 2 binary64) im) (sqrt.f64 #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 im #s(literal 3 binary64))) (.f64 #s(literal -1/6 binary64) (pow.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) im) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) (.f64 im im))))) (neg.f64 (.f64 (pow.f64 (.f64 #s(literal 2 binary64) im) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) im)))) (pow.f64 (.f64 #s(literal 2 binary64) im) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 #s(literal 2 binary64) im))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 #s(literal -2 binary64) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 #s(literal 2 binary64) im (*.f64 re (-.f64 (/.f64 re im) #s(literal 2 binary64)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 re (-.f64 (.f64 re (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (pow.f64 im #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) im)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) im)
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (fma.f64 #s(literal -1 binary64) re im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (fma.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (fma.f64 re (-.f64 (.f64 re (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) im) im))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (/.f64 #s(literal 1/2 binary64) im)) im))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 im #s(literal 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 re (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 im #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 re (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 re (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 im #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 re (fma.f64 #s(literal -1/4 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) (.f64 re (fma.f64 (.f64 #s(literal 1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 re (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal 1/16 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 im #s(literal 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 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 re (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 re (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) (.f64 re (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 re (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal -2 binary64) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 2 binary64) im (*.f64 re (-.f64 (/.f64 re im) #s(literal 2 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 re (-.f64 (.f64 re (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (pow.f64 im #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) im)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) im)
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (fma.f64 #s(literal -1 binary64) re im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (fma.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (fma.f64 re (-.f64 (.f64 re (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im))) #s(literal 1 binary64)) im))
#s(approx (/ (* im im) re) (/.f64 (*.f64 im im) re))
#s(approx (* (* 1/2 (* 1 im)) (pow re -1/2)) (.f64 (.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (pow re -1/2) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 3 binary64))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im re) #s(literal 2 binary64)) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 3 binary64))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 im im)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 im im) (.f64 #s(literal 1/2 binary64) (*.f64 re re))) (pow.f64 re #s(literal 3 binary64))))
#s(approx (/ (* im im) (pow re 3)) (*.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))))
#s(approx (pow re 3) (pow.f64 re #s(literal 3 binary64)))
#s(approx (/ 1/2 re) (/.f64 #s(literal 1/2 binary64) re))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 #s(literal 1/2 binary64) (.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (fma.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)))) (.f64 (.f64 #s(literal -3/4 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64)))) (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 #s(literal 1/2 binary64) (*.f64 re re)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 #s(literal 1/2 binary64) (.f64 re re)))) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)))) (.f64 (.f64 #s(literal -3/4 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (fma.f64 (.f64 #s(literal -1/96 binary64) (.f64 im im)) (.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (fma.f64 #s(literal 24 binary64) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)))) (.f64 (.f64 #s(literal -3/4 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64)))) (fma.f64 (.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -15/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))))) (.f64 #s(literal 720 binary64) (fma.f64 (.f64 #s(literal -1/96 binary64) (.f64 im im)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))) (fma.f64 (.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -720 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (.f64 im im)) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64))) (.f64 (.f64 #s(literal -1/384 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)))))))) (.f64 (.f64 #s(literal -1/384 binary64) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/8 binary64))))) (pow.f64 re #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 #s(literal 1/2 binary64) (.f64 re re)))) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (+.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 #s(literal 1/2 binary64) (.f64 re re)))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (fma.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)))) (.f64 (.f64 #s(literal -3/4 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64)))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (+.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 #s(literal 1/2 binary64) (.f64 re re)))) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))) (fma.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)))) (.f64 (.f64 #s(literal -3/4 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (fma.f64 (.f64 #s(literal -1/96 binary64) (.f64 im im)) (.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (fma.f64 #s(literal 24 binary64) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)))) (.f64 (.f64 #s(literal -3/4 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64)))) (fma.f64 (.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -15/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))))) (.f64 #s(literal 720 binary64) (fma.f64 (.f64 #s(literal -1/96 binary64) (.f64 im im)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))) (fma.f64 (.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -720 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (.f64 im im)) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64))) (.f64 (.f64 #s(literal -1/384 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)))))))) (.f64 (*.f64 #s(literal -1/384 binary64) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/8 binary64))))) (pow.f64 re #s(literal 6 binary64))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 re re)))) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (+.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 re re)))) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (+.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 re re)))) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))) (fma.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 (fma.f64 (.f64 #s(literal -1/96 binary64) (.f64 im im)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))) (fma.f64 (.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -720 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (.f64 im im)) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64))) (.f64 (*.f64 #s(literal -1/384 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))))) (pow.f64 re #s(literal 6 binary64)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 im im) re))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (.f64 im im)) re))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 im im))) re))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)))) re))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (.f64 #s(literal 1/2 binary64) (*.f64 im im))) re))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 im im)))) re))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 im im))))) re))
#s(approx (sqrt (+ (* im im) (* re re))) re)
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 re (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 re (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 re (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 im #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 im #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (.f64 (.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 im #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (.f64 (.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 #s(literal -1/1024 binary64) (.f64 (/.f64 (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 im #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (.f64 (.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 (.f64 im #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (.f64 im #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (.f64 #s(literal 1/32 binary64) (.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (.f64 (.f64 im #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 #s(literal -1/512 binary64) (.f64 (/.f64 (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 (.f64 #s(literal 1/32 binary64) (.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (.f64 (.f64 im #s(literal 1 binary64)) (/.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 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (.f64 im im)) re))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 im im))) re))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)))) re))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (.f64 #s(literal 1/2 binary64) (*.f64 im im))) re))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 im im)))) re))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 im im))))) re))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) re)))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (.f64 #s(literal 1/2 binary64) (*.f64 im im))) re))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 #s(literal 1/2 binary64) re))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1/2 binary64)) re))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))) #s(literal 1/2 binary64)) (.f64 re re)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (fma.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)))) (.f64 (.f64 #s(literal -3/4 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64)))) (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))) #s(literal 1/2 binary64)) (*.f64 re re)))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))) #s(literal 1/2 binary64)) (.f64 re re)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (/.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)))) (.f64 (.f64 #s(literal -3/4 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (fma.f64 (.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (.f64 #s(literal -180 binary64) (.f64 im im)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64))))) (fma.f64 #s(literal 15/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (.f64 #s(literal 720 binary64) (fma.f64 (.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 15/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 135/4 binary64))) (fma.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (.f64 (.f64 #s(literal 1/96 binary64) (.f64 im im)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64))))))))) (fma.f64 #s(literal 1/96 binary64) (.f64 (.f64 (.f64 im im) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)))) (.f64 (.f64 #s(literal -3/4 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/8 binary64))))) (pow.f64 re #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))) #s(literal 1/2 binary64)) (.f64 re re)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (+.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))) #s(literal 1/2 binary64)) (.f64 re re)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (fma.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)))) (.f64 (.f64 #s(literal -3/4 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64)))) (pow.f64 re #s(literal 4 binary64)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (+.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))) #s(literal 1/2 binary64)) (.f64 re re)) (fma.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (/.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)))) (.f64 (.f64 #s(literal -3/4 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (fma.f64 (.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (.f64 #s(literal -180 binary64) (.f64 im im)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64))))) (fma.f64 #s(literal 15/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (.f64 #s(literal 720 binary64) (fma.f64 (.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 15/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 135/4 binary64))) (fma.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (.f64 (.f64 #s(literal 1/96 binary64) (.f64 im im)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64))))))))) (fma.f64 #s(literal 1/96 binary64) (.f64 (.f64 (.f64 im im) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)))) (.f64 (.f64 #s(literal -3/4 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64)))) (.f64 (*.f64 #s(literal 1/384 binary64) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/8 binary64))))) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (/.f64 (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 re re))) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (+.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (/.f64 (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 re re))) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (/.f64 (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)))) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (+.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (/.f64 (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 re re))) (fma.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (/.f64 (fma.f64 (.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64)))) (/.f64 (fma.f64 (.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 15/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 135/4 binary64))) (fma.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (.f64 (.f64 #s(literal 1/96 binary64) (.f64 im im)) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)))))) (pow.f64 re #s(literal 6 binary64)))))) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 4 binary64))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 #s(literal -4 binary64) re))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 re) (+.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 4 binary64))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 re) (+.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 im im) (*.f64 re re))) #s(literal 4 binary64))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 re) (+.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 im im) (*.f64 re re)))) #s(literal 4 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 #s(literal -2 binary64) re))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (neg.f64 re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 2 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (neg.f64 re) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))) #s(literal 2 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (neg.f64 re) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.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 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 (neg.f64 re) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 (neg.f64 re) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re)))) #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 re)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 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))) (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (*.f64 im im) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 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))) (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/32 binary64) (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (*.f64 im im) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 re)))) (pow.f64 re #s(literal 3 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))) (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/32 binary64) (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) (fma.f64 #s(literal 1/64 binary64) (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (*.f64 im im) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 re))))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (.f64 (sqrt.f64 re) (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))))
#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) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 im im) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))))))))
#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 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 im im) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 re)) (.f64 #s(literal -1/16 binary64) (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))))) (pow.f64 re #s(literal 3 binary64)))))))
#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 #s(literal -1/16 binary64) (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 im im) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 re)) (.f64 #s(literal 1/32 binary64) (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))))))) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (.f64 (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 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 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 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 im im) (*.f64 re re)))) #s(literal 4 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 #s(literal -2 binary64) re))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (neg.f64 re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 2 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (neg.f64 re) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))) #s(literal 2 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (neg.f64 re) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re)))) #s(literal 2 binary64))))
#s(approx (* (* 1/2 (* 1 im)) (pow re -1/2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 im #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (pow re -1/2) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal -1 binary64)))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (neg.f64 (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (.f64 #s(literal -1/2 binary64) (*.f64 im im))) re)))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (neg.f64 (/.f64 (-.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (*.f64 re re)) #s(literal 1/2 binary64)) re)))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 #s(literal 1/2 binary64) (.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 (.f64 im im) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (fma.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 #s(literal 3/32 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 #s(literal 1/64 binary64) (pow.f64 re #s(literal 4 binary64)))) (/.f64 #s(literal -3/8 binary64) (pow.f64 re #s(literal 4 binary64)))) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 4 binary64))))) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 #s(literal 1/2 binary64) (.f64 re re))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))) (fma.f64 #s(literal -1/96 binary64) (/.f64 (.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (fma.f64 #s(literal 24 binary64) (fma.f64 #s(literal 3/32 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 #s(literal 1/64 binary64) (pow.f64 re #s(literal 4 binary64)))) (/.f64 #s(literal -3/8 binary64) (pow.f64 re #s(literal 4 binary64))))) (.f64 re re)) (fma.f64 (.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -15/4 binary64) (/.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 720 binary64) (fma.f64 #s(literal -5/96 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/384 binary64) (/.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 #s(literal -3/256 binary64) (pow.f64 re #s(literal 6 binary64))))) (.f64 #s(literal 180 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 3/32 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 #s(literal 1/64 binary64) (pow.f64 re #s(literal 4 binary64))))) (.f64 re re))))) (/.f64 #s(literal -1/3072 binary64) (pow.f64 re #s(literal 6 binary64))))) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (fma.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 #s(literal 3/32 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 #s(literal 1/64 binary64) (pow.f64 re #s(literal 4 binary64)))) (/.f64 #s(literal -3/8 binary64) (pow.f64 re #s(literal 4 binary64)))) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 4 binary64))))))) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 #s(literal 1/2 binary64) (.f64 re re))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 #s(literal 1/2 binary64) (.f64 re re)))) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (fma.f64 (.f64 im im) (fma.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))) (fma.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 #s(literal 3/32 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 #s(literal 1/64 binary64) (pow.f64 re #s(literal 4 binary64)))) (/.f64 #s(literal -3/8 binary64) (pow.f64 re #s(literal 4 binary64)))) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 #s(literal 1/2 binary64) (*.f64 re re))))) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))) (fma.f64 #s(literal -1/96 binary64) (/.f64 (.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (fma.f64 #s(literal 24 binary64) (fma.f64 #s(literal 3/32 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 #s(literal 1/64 binary64) (pow.f64 re #s(literal 4 binary64)))) (/.f64 #s(literal -3/8 binary64) (pow.f64 re #s(literal 4 binary64))))) (.f64 re re)) (fma.f64 (.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -15/4 binary64) (/.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 720 binary64) (fma.f64 #s(literal -5/96 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/384 binary64) (/.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 #s(literal -3/256 binary64) (pow.f64 re #s(literal 6 binary64))))) (.f64 #s(literal 180 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 3/32 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 #s(literal 1/64 binary64) (pow.f64 re #s(literal 4 binary64))))) (.f64 re re))))) (/.f64 #s(literal -1/3072 binary64) (pow.f64 re #s(literal 6 binary64))))) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (fma.f64 (.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 24 binary64) (fma.f64 #s(literal 3/32 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 #s(literal 1/64 binary64) (pow.f64 re #s(literal 4 binary64)))) (/.f64 #s(literal -3/8 binary64) (pow.f64 re #s(literal 4 binary64)))) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 4 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 #s(literal 1/2 binary64) (*.f64 re re))))) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 re re)))) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 re re))) (.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (fma.f64 #s(literal 3/32 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 #s(literal 1/64 binary64) (pow.f64 re #s(literal 4 binary64))))))) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (fma.f64 #s(literal -5/96 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/384 binary64) (/.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 #s(literal -3/256 binary64) (pow.f64 re #s(literal 6 binary64)))))) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (fma.f64 #s(literal 3/32 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 #s(literal 1/64 binary64) (pow.f64 re #s(literal 4 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 re re))))) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (neg.f64 (log.f64 re))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (*.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) (pow.f64 re #s(literal -1 binary64)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (pow.f64 re #s(literal -1 binary64)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal -5/64 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 7 binary64))) (.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (pow.f64 re #s(literal -1 binary64)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/8 binary64) (*.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) (/.f64 #s(literal 1/2 binary64) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (/.f64 #s(literal 1/2 binary64) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal -5/128 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 7 binary64))) (.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (/.f64 #s(literal 1/2 binary64) re))))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) re) re))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/8 binary64) (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) (/.f64 #s(literal 1/2 binary64) re)) re))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (/.f64 #s(literal 1/2 binary64) re)) re))
#s(approx im im)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 im (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (.f64 im im) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 #s(literal 1/2 binary64) (.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 im (fma.f64 (.f64 im im) (fma.f64 (.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 2 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 (.f64 im im) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64)) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)))) (.f64 #s(literal 1/2 binary64) (*.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 im (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 re)) (/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64)) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 im im) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64)) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (.f64 (.f64 re re) #s(literal 1/2 binary64))) (.f64 #s(literal 5/128 binary64) (pow.f64 re #s(literal -7 binary64)))))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)))) (.f64 (.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1 binary64))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 im (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 im (fma.f64 (.f64 im im) (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 im im) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64)) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 im (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) (/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64)) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 im im) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64)) (.f64 #s(literal -1/256 binary64) (/.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/2 binary64)))) (.f64 (.f64 re re) #s(literal 1/2 binary64))) (.f64 #s(literal 5/128 binary64) (pow.f64 re #s(literal -7 binary64)))))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)))) (.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 2 binary64))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (*.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) (pow.f64 re #s(literal -1 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (pow.f64 re #s(literal -1 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal -5/64 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 7 binary64))) (.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (pow.f64 re #s(literal -1 binary64)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/8 binary64) (*.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) (/.f64 #s(literal 1/2 binary64) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (/.f64 #s(literal 1/2 binary64) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal -5/128 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 7 binary64))) (.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (/.f64 #s(literal 1/2 binary64) re))))
#s(approx (* im im) (*.f64 im im))
#s(approx (* 1/2 (* 1 im)) (*.f64 #s(literal 1/2 binary64) im))
#s(approx im im)
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/8 binary64) (*.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) (/.f64 #s(literal 1/2 binary64) re))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (fma.f64 #s(literal -1/8 binary64) (*.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) (/.f64 #s(literal 1/2 binary64) re)))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal -1/2 binary64) (.f64 re (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)) im)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal -1/2 binary64) (.f64 re (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)) im)) (.f64 #s(literal 1/2 binary64) (+.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 (neg.f64 (.f64 re re)) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))))) (.f64 (.f64 re re) #s(literal 1/4 binary64))))) (*.f64 im im))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal -1/2 binary64) (.f64 re (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)) im)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) re) (.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (fma.f64 (neg.f64 (.f64 re re)) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64))))))) (fma.f64 (.f64 #s(literal 1/6 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (.f64 #s(literal 6 binary64) (fma.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))) (fma.f64 (.f64 #s(literal -1/2 binary64) re) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 0 binary64) (.f64 re re))) (fma.f64 (.f64 #s(literal 1/6 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (.f64 #s(literal -1/6 binary64) (pow.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/6 binary64) (pow.f64 re #s(literal 3 binary64))) #s(literal 1/8 binary64)))) (pow.f64 im #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 (neg.f64 (.f64 re re)) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))))) (.f64 (.f64 re re) #s(literal 1/4 binary64))))) (.f64 im im))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64))))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (fma.f64 #s(literal -1 binary64) (.f64 re (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)) im)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (+.f64 (fma.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 (neg.f64 (.f64 re re)) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))))) (.f64 (.f64 re re) #s(literal 1/4 binary64)))) (.f64 im im)) (neg.f64 (.f64 re (/.f64 (*.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)) im)))) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (+.f64 (fma.f64 #s(literal -1 binary64) (.f64 re (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)) im)) (fma.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) re) (.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (fma.f64 (neg.f64 (.f64 re re)) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64))))))) (fma.f64 (.f64 #s(literal 1/6 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (.f64 #s(literal 6 binary64) (fma.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))) (fma.f64 (.f64 #s(literal -1/2 binary64) re) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 0 binary64) (.f64 re re))) (fma.f64 (.f64 #s(literal 1/6 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (.f64 #s(literal -1/6 binary64) (pow.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/6 binary64) (pow.f64 re #s(literal 3 binary64))) #s(literal 1/8 binary64)))) (pow.f64 im #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 (neg.f64 (.f64 re re)) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))))) (.f64 (.f64 re re) #s(literal 1/4 binary64))))) (.f64 im im)))) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (fma.f64 #s(literal -1 binary64) (.f64 re (/.f64 (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) im)) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (+.f64 (fma.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))) (.f64 im im)) (neg.f64 (.f64 re (/.f64 (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) im)))) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (+.f64 (fma.f64 #s(literal -1 binary64) (.f64 re (/.f64 (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) im)) (fma.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))) (.f64 im im)) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64)))) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) re) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 0 binary64) (.f64 re re))) (fma.f64 (.f64 #s(literal 1/6 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (.f64 #s(literal -1/6 binary64) (pow.f64 (*.f64 re (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 3 binary64))))) (pow.f64 im #s(literal 3 binary64)))))) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 im (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (.f64 im (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)) (/.f64 (.f64 re re) (*.f64 im im)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (.f64 im (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 re re) (*.f64 im im)))) #s(literal 2 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 im (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (/.f64 re im))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 im (-.f64 (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64)) (/.f64 re im))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 im (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 im (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 im (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 im (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 re (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 im (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 re (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 im (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 re (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 im (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 im (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 re (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 im (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 re (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (.f64 im (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)) (/.f64 (.f64 re re) (*.f64 im im)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (.f64 im (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 re re) (*.f64 im im)))) #s(literal 2 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 im (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (/.f64 re im))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 im (-.f64 (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64)) (/.f64 re im))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) re)) (.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal -3 binary64))))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (.f64 (.f64 im im) (-.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) re)) (*.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal -3 binary64))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)) im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) (neg.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 (neg.f64 (.f64 re re)) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))))) (.f64 (*.f64 re re) #s(literal 1/4 binary64))))) im))) im))))
#s(approx (* 1/2 (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) (neg.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) re) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 #s(literal -1/2 binary64) re) (.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (fma.f64 (neg.f64 (.f64 re re)) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64))))))) (fma.f64 (.f64 #s(literal 1/6 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (.f64 #s(literal 6 binary64) (fma.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))) (fma.f64 (.f64 #s(literal -1/2 binary64) re) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 0 binary64) (.f64 re re))) (fma.f64 (.f64 #s(literal 1/6 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (.f64 #s(literal -1/6 binary64) (pow.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/6 binary64) (pow.f64 re #s(literal 3 binary64))) #s(literal 1/8 binary64))))) im) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 (neg.f64 (.f64 re re)) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))))) (.f64 (*.f64 re re) #s(literal 1/4 binary64)))))) im))) im))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (fma.f64 re (/.f64 (*.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)) im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal -1 binary64) (fma.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 (neg.f64 (.f64 re re)) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))))) (.f64 (*.f64 re re) #s(literal 1/4 binary64))))) im))) im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (sqrt 1/2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal -1 binary64) (fma.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (fma.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 (neg.f64 (.f64 re re)) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))))) (.f64 (.f64 re re) #s(literal 1/4 binary64)))) (neg.f64 (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 #s(literal -1/2 binary64) re) (.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)) (fma.f64 (neg.f64 (.f64 re re)) #s(literal 1/2 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64))))))) (fma.f64 (.f64 #s(literal 1/6 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 3 binary64)) (.f64 #s(literal 6 binary64) (fma.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))) (fma.f64 (.f64 #s(literal -1/2 binary64) re) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 0 binary64) (.f64 re re))) (fma.f64 (.f64 #s(literal 1/6 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (.f64 #s(literal -1/6 binary64) (pow.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 3 binary64)))))))) (.f64 (*.f64 #s(literal -1/6 binary64) (pow.f64 re #s(literal 3 binary64))) #s(literal 1/8 binary64))))) im))) im))) im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (fma.f64 re (/.f64 (*.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) im) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (neg.f64 re) (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (neg.f64 (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (*.f64 re re) #s(literal 1/2 binary64)))) im)))) im) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) (sqrt 1/2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal -1 binary64) (fma.f64 (.f64 re (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (fma.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 (.f64 re re) #s(literal 1/2 binary64)))) (neg.f64 (.f64 (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64)))) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) re) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 0 binary64) (.f64 re re))) (fma.f64 (.f64 #s(literal 1/6 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (.f64 #s(literal -1/6 binary64) (pow.f64 (.f64 re (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 3 binary64))))) im)))) im))) im) (pow.f64 (exp.f64 (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 #s(literal -2 binary64) im))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 (neg.f64 im) (fma.f64 #s(literal 2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) re (neg.f64 (/.f64 (.f64 re re) im))) im) #s(literal 2 binary64))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) re (neg.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 im im)) (*.f64 re re)) im))) im) #s(literal 2 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (neg.f64 im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 re im) #s(literal 1 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im)) re) im) #s(literal 1 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (neg.f64 (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 im im)) (.f64 #s(literal 1/2 binary64) (.f64 re re))) im)) re) im) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 (neg.f64 im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 (neg.f64 im) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 (neg.f64 im) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))) #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/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 re (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) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 re (sqrt.f64 #s(literal -2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 im) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 re (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (*.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 re (sqrt.f64 #s(literal -2 binary64))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 re (sqrt.f64 #s(literal -2 binary64))) (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 im) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (.f64 re (sqrt.f64 #s(literal -2 binary64))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal 2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) re (neg.f64 (/.f64 (.f64 re re) im))) im) #s(literal 2 binary64))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) re (neg.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 im im)) (*.f64 re re)) im))) im) #s(literal 2 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (neg.f64 im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 re im) #s(literal 1 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im)) re) im) #s(literal 1 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (neg.f64 (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 im im)) (.f64 #s(literal 1/2 binary64) (.f64 re re))) im)) re) im) #s(literal 1 binary64))))

eval50.0ms (1%)

Memory: 5.1MiB live, 95.6MiB allocated; 8ms collecting garbage
Compiler: Compiled 16 466 to 2 222 computations (86.5% saved)

prune13.0ms (0.3%)

Memory

-15.2MiB live, 31.4MiB allocated; 1ms collecting garbage

Pruning

14 alts after pruning (10 fresh and 4 done)

	Pruned	Kept	Total
New	376	7	383
Fresh	3	3	6
Picked	4	1	5
Done	0	3	3
Total	383	14	397

Accuracy

100.0%

Counts

397 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	53.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (- (sqrt (+ ( im im) (* re re))) re) im) #s(approx (- (sqrt (+ (* im im) (* re re))) re) im))))
✓	44.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
	19.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (/.f64 (-.f64 (.f64 (.f64 re re) (.f64 re re)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (.f64 re re) (*.f64 im 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))))
▶	56.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
	14.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 #s(approx (+ ( (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1/2 binary64)) re)) (*.f64 im im))))))
▶	14.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 #s(approx (+ ( (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))))
	54.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))))))
✓	14.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
▶	19.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im re)))))
✓	27.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
	23.7%	#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 (pow.f64 re #s(literal -1/4 binary64)) (pow.f64 re #s(literal -1/4 binary64)))))
▶	23.8%	#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) im) (pow.f64 re #s(literal -1/2 binary64))))
	23.7%	#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(approx (* (* 1/2 (* 1 im)) (pow re -1/2)) (.f64 (.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))

Compiler

Compiled 647 to 442 computations (31.7% saved)

series32.0ms (0.7%)

Memory

4.1MiB live, 54.2MiB allocated; 7ms collecting garbage

Counts

31 → 223

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

Calls

6 calls:

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

rewrite239.0ms (5%)

Memory

11.7MiB live, 252.0MiB allocated; 73ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1085	9667
0	1105	8211
1	6300	8036
0	8458	6670

Stop Event

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

Counts

254 → 320

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

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

eval31.0ms (0.7%)

Memory: 14.6MiB live, 59.9MiB allocated; 4ms collecting garbage
Compiler: Compiled 10 374 to 1 500 computations (85.5% saved)

prune19.0ms (0.4%)

Memory

-6.9MiB live, 39.9MiB allocated; 1ms collecting garbage

Pruning

16 alts after pruning (7 fresh and 9 done)

	Pruned	Kept	Total
New	289	5	294
Fresh	3	2	5
Picked	0	5	5
Done	0	4	4
Total	292	16	308

Accuracy

100.0%

Counts

308 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
	55.9%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
✓	53.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (- (sqrt (+ ( im im) (* re re))) re) im) #s(approx (- (sqrt (+ (* im im) (* re re))) re) im))))
✓	44.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
	19.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (/.f64 (-.f64 (.f64 (.f64 re re) (.f64 re re)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (.f64 re re) (*.f64 im 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))))
✓	56.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
	14.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 #s(approx (+ ( (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1/8 binary64) #s(literal 1/2 binary64)) re)) (*.f64 im im))))))
✓	14.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 #s(approx (+ ( (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))))
	54.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))))))
✓	14.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
✓	19.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im re)))))
✓	27.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
✓	23.8%	#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) im) (pow.f64 re #s(literal -1/2 binary64))))
	23.7%	#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))))
	23.7%	#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) im) (*.f64 (pow.f64 re #s(literal -1/4 binary64)) (pow.f64 re #s(literal -1/4 binary64)))))
	0.7%	#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (neg.f64 (sqrt.f64 (neg.f64 re))))

Compiler

Compiled 1 123 to 487 computations (56.6% saved)

regimes56.0ms (1.2%)

Memory

11.0MiB live, 110.9MiB allocated; 6ms collecting garbage

Counts

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

Outputs

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

(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
75.2%	1	`(*.f64 im im)`
85.1%	2	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
85.1%	2	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
84.8%	2	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
84.8%	2	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
84.1%	3	`re`
75.2%	1	`im`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes35.0ms (0.7%)

Memory

-31.1MiB live, 62.1MiB allocated; 3ms collecting garbage

Counts

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

Outputs

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

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

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

Calls

5 calls:

8.0ms	re
7.0ms	(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))
6.0ms	(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))
6.0ms	(-.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
78.4%	4	`re`
78.7%	3	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
78.7%	3	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
78.9%	3	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
78.9%	3	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`

Compiler

Compiled 51 to 40 computations (21.6% saved)

regimes10.0ms (0.2%)

Memory

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

Counts

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

Outputs

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

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

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

Calls

2 calls:

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

Results

Accuracy	Segments	Branch
78.8%	3	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
78.8%	3	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`

Compiler

Compiled 22 to 16 computations (27.3% saved)

regimes28.0ms (0.6%)

Memory

-3.6MiB live, 46.9MiB allocated; 4ms collecting garbage

Counts

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

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

Calls

7 calls:

6.0ms	im
4.0ms	re
4.0ms	(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))
4.0ms	(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)
4.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
76.5%	3	`re`
67.1%	4	`(*.f64 im im)`
69.1%	5	`im`
66.8%	2	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
66.8%	2	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
67.0%	2	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
67.0%	2	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes11.0ms (0.2%)

Memory

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

Counts

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

Calls

5 calls:

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

Results

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

Compiler

Compiled 51 to 40 computations (21.6% saved)

regimes2.0ms (0%)

Memory

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

Counts

4 → 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 (+ ( im im) (* re re))) re) im) #s(approx (- (sqrt (+ (* im im) (* re re))) 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))))

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

Calls

1 calls:

2.0ms

re

Results

Accuracy	Segments	Branch
66.6%	2	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes10.0ms (0.2%)

Memory

-25.6MiB live, 21.4MiB allocated; 2ms 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 (+ (* im im) (* re re))) re) im) #s(approx (- (sqrt (+ (* im im) (* re re))) re) im))))

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

Calls

7 calls:

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes8.0ms (0.2%)

Memory

18.9MiB live, 18.9MiB 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	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
0.7%	1	`re`
0.7%	1	`(*.f64 im im)`
0.7%	1	`im`
0.7%	1	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
0.7%	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.7%	1	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
0.7%	1	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`

Compiler

Compiled 55 to 45 computations (18.2% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0	4.24882776903242e-271

Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.0940663319525015e+151	2.492293539332008e+152
0.0ms	0.0	4.24882776903242e-271

Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.0940663319525015e+151	2.492293539332008e+152
0.0ms	0.0	4.24882776903242e-271

Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch45.0ms (0.9%)

Memory

-26.4MiB live, 67.2MiB allocated; 3ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
27.0ms	7.852235923277734e+29	4.9340861471182584e+35
14.0ms	-3.621250394990733e+61	-1.0406717828064375e+58

Samples

14.0ms	193×	0	valid
9.0ms	45×	2	valid
3.0ms	11×	3	valid
3.0ms	23×	1	valid

Compiler

Compiled 765 to 623 computations (18.6% saved)

Precisions

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

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

ival-mult: 4.0ms (19.1% of total)

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

adjust: 2.0ms (9.5% of total)

ival-sub: 2.0ms (9.5% of total)

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

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

exact: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-3.621250394990733e+61	-1.0406717828064375e+58

Compiler

Compiled 306 to 254 computations (17% saved)

bsearch17.0ms (0.4%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
15.0ms	-5.049332452012512e+44	-6.832863126614407e+38

Samples

9.0ms

144×

valid

Compiler

Compiled 441 to 275 computations (37.6% saved)

Precisions

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

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

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

ival-sub: 1.0ms (16.6% of total)

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

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

adjust: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

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

simplify69.0ms (1.5%)

Memory

-21.5MiB live, 70.2MiB allocated; 26ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	85	443
1	122	443
2	206	443
3	437	443
4	2183	443
5	7153	443

Stop Event

1×	node limit

Calls

Call 1

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

Outputs
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) #s(approx ( 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) im) (pow.f64 re #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) #s(approx ( 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal 1/2 binary64) im) (pow.f64 re #s(literal -1/2 binary64)))) (if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 20000000000000000343550647744354382360786208168610910215464656890400062525563770840165253485722346365445091919087085669573862252890346012499269098930176 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (.f64 im im))) re)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))))
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) #s(approx ( 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(approx (* (* 1/2 (* 1 im)) (pow re -1/2)) (.f64 (.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) (if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 20000000000000000343550647744354382360786208168610910215464656890400062525563770840165253485722346365445091919087085669573862252890346012499269098930176 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (.f64 im im))) re)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))))
(if (<=.f64 re #s(literal -139999999999999989346079709825462938729195377918139569274880 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (.f64 #s(literal -4 binary64) re)))) (if (<=.f64 re #s(literal 51999999999999999908100584767488 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)))) #s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(approx (* (* 1/2 (* 1 im)) (pow re -1/2)) (.f64 (.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))))
(if (<=.f64 re #s(literal -139999999999999989346079709825462938729195377918139569274880 binary64)) (.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)))))
(if (<=.f64 re #s(literal -9000000000000000249228909192010716707553280 binary64)) (.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 (+ (* im im) (* re re))) re) im) #s(approx (- (sqrt (+ (* im im) (* re re))) re) im)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (- (sqrt (+ ( im im) (* re re))) re) im) #s(approx (- (sqrt (+ (* im im) (* re re))) re) im))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (neg.f64 (sqrt.f64 (neg.f64 re))))

derivations237.0ms (5%)

Memory

1.1MiB live, 203.0MiB allocated; 33ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 447 to 89 computations (80.1% saved)

preprocess84.0ms (1.8%)

Memory: 15.4MiB live, 61.1MiB allocated; 9ms collecting garbage
Remove: (abs im)
Compiler: Compiled 1 026 to 272 computations (73.5% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze201.0ms (4.3%)

sample1.9s (40.4%)

explain187.0ms (3.9%)

preprocess246.0ms (5.2%)

eval0.0ms (0%)

prune1.0ms (0%)

series27.0ms (0.6%)

rewrite266.0ms (5.6%)

eval132.0ms (2.8%)

prune13.0ms (0.3%)

series83.0ms (1.7%)

rewrite283.0ms (6%)

eval91.0ms (1.9%)

prune16.0ms (0.3%)

series83.0ms (1.8%)

rewrite196.0ms (4.1%)

eval50.0ms (1%)

prune13.0ms (0.3%)

series32.0ms (0.7%)

rewrite239.0ms (5%)

eval31.0ms (0.7%)

prune19.0ms (0.4%)

regimes56.0ms (1.2%)

regimes35.0ms (0.7%)

regimes10.0ms (0.2%)

regimes28.0ms (0.6%)

regimes11.0ms (0.2%)

regimes2.0ms (0%)

regimes10.0ms (0.2%)

regimes8.0ms (0.2%)

bsearch0.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch45.0ms (0.9%)

bsearch1.0ms (0%)

bsearch17.0ms (0.4%)

simplify69.0ms (1.5%)

derivations237.0ms (5%)

preprocess84.0ms (1.8%)

end0.0ms (0%)

Profiling