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

analyze107.0ms (2.6%)

Memory

-2.9MiB live, 138.5MiB allocated; 29ms 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.4s (33%)

Memory

83.7MiB live, 1 802.2MiB allocated; 427ms collecting garbage

Samples

460.0ms	6 247×	0	valid
222.0ms	442×	3	valid
201.0ms	791×	2	valid
116.0ms	776×	1	valid

Precisions

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

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

ival-mult: 178.0ms (24.5% of total)

ival-sqrt: 77.0ms (10.6% of total)

adjust: 64.0ms (8.8% of total)

ival-sub: 61.0ms (8.4% of total)

exact: 9.0ms (1.2% of total)

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

Bogosity

explain174.0ms (4.3%)

Memory

45.5MiB live, 237.2MiB allocated; 17ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
133	0	-	6	(-4.382666757421803e-226 1.9955255156576018e-158)	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`
42	2	(2.8898605628222494e+93 3.446838932441875e+92)	0	-	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
22	0	-	3	(1.3127378874124753e-172 2.0129345983234207e-248)	`(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	1	(1.3127378874124753e-172 2.0129345983234207e-248)	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	112	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	112
↳	`(*.f64 re re)`	overflow	55
↳	`(*.f64 im im)`	overflow	70
`-.f64`	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	cancellation	44	0
`sqrt.f64`	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	uflow-rescue	18	0
↳	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	underflow	26
↳	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	underflow	8
↳	`(*.f64 re re)`	underflow	69
↳	`(*.f64 im im)`	underflow	53
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	15
↳	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	underflow	27
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	uflow-rescue	15	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	15
↳	`(*.f64 re re)`	underflow	69
↳	`(*.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)))`	oflow-rescue	1	0
↳	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	overflow	1
↳	`(*.f64 re re)`	overflow	55
↳	`(*.f64 im im)`	overflow	70
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	112
↳	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	overflow	1
`*.f64`	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	*nu**	1	0

Confusion

	Predicted +	Predicted -
+	156	6
-	1	93

Precision

0.9936305732484076

Recall

0.9629629629629629

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	156	0	6
-	1	0	93

Precision?

0.9936305732484076

Recall?

0.9629629629629629

Freqs

test

number	freq
0	99
1	123
2	34

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

35.0ms	378×	0	valid
14.0ms	50×	2	valid
13.0ms	58×	1	valid
10.0ms	26×	3	valid

Compiler

Compiled 169 to 40 computations (76.3% saved)

Precisions

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

ival-hypot: 15.0ms (30.6% of total)

ival-mult: 15.0ms (30.6% of total)

adjust: 6.0ms (12.3% of total)

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

ival-sub: 4.0ms (8.2% of total)

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

exact: 1.0ms (2% of total)

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

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

preprocess196.0ms (4.8%)

Memory

-10.5MiB live, 171.8MiB allocated; 22ms 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)

prune0.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

series38.0ms (0.9%)

Memory

-7.4MiB live, 41.9MiB allocated; 9ms 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
18.0ms	im	@	inf	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
4.0ms	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	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)

rewrite218.0ms (5.3%)

Memory

17.9MiB live, 200.5MiB allocated; 61ms 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))))

eval41.0ms (1%)

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

prune16.0ms (0.4%)

Memory

-8.5MiB live, 36.5MiB allocated; 4ms collecting garbage

Pruning

14 alts after pruning (14 fresh and 0 done)

	Pruned	Kept	Total
New	303	14	317
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	304	14	318

Accuracy

99.3%

Counts

318 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	77.7%	(.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	69.9%	(.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))))
	30.1%	(.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)))))
▶	41.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
▶	6.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
	55.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
	54.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) im))))
	54.6%	(.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))))))
	15.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
▶	20.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
	72.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))))
▶	53.4%	(.f64 #s(literal 1/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))))))
	53.4%	(.f64 #s(literal 1/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))))))
	28.3%	(.f64 #s(literal 1/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)))))

Compiler

Compiled 564 to 420 computations (25.5% saved)

series50.0ms (1.2%)

Memory

-32.5MiB live, 63.2MiB allocated; 21ms collecting garbage

Counts

42 → 265

Calls

Call 1

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

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

Calls

6 calls:

Time	Variable		Point	Expression
10.0ms	re	@	inf	((* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (+ (* (+ (* (* -1/2 (pow im -1/2)) (sqrt 2)) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re))) re) (sqrt (* im 2))) (+ (* (* -1/2 (pow im -1/2)) (sqrt 2)) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re))) (* -1/2 (pow im -1/2)) -1/2 (pow im -1/2) (sqrt 2) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re)) (* 1/8 (pow im -3/2)) 1/8 (pow im -3/2) -3/2 (* (sqrt 2) re) (sqrt (* im 2)) (* im 2))
7.0ms	im	@	-inf	((* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (+ (* (+ (* (* -1/2 (pow im -1/2)) (sqrt 2)) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re))) re) (sqrt (* im 2))) (+ (* (* -1/2 (pow im -1/2)) (sqrt 2)) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re))) (* -1/2 (pow im -1/2)) -1/2 (pow im -1/2) (sqrt 2) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re)) (* 1/8 (pow im -3/2)) 1/8 (pow im -3/2) -3/2 (* (sqrt 2) re) (sqrt (* im 2)) (* im 2))
5.0ms	im	@	0	((* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (+ (* (+ (* (* -1/2 (pow im -1/2)) (sqrt 2)) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re))) re) (sqrt (* im 2))) (+ (* (* -1/2 (pow im -1/2)) (sqrt 2)) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re))) (* -1/2 (pow im -1/2)) -1/2 (pow im -1/2) (sqrt 2) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re)) (* 1/8 (pow im -3/2)) 1/8 (pow im -3/2) -3/2 (* (sqrt 2) re) (sqrt (* im 2)) (* im 2))
4.0ms	im	@	inf	((* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (+ (* (+ (* (* -1/2 (pow im -1/2)) (sqrt 2)) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re))) re) (sqrt (* im 2))) (+ (* (* -1/2 (pow im -1/2)) (sqrt 2)) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re))) (* -1/2 (pow im -1/2)) -1/2 (pow im -1/2) (sqrt 2) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re)) (* 1/8 (pow im -3/2)) 1/8 (pow im -3/2) -3/2 (* (sqrt 2) re) (sqrt (* im 2)) (* im 2))
4.0ms	re	@	0	((* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (+ (* (+ (* (* -1/2 (pow im -1/2)) (sqrt 2)) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re))) re) (sqrt (* im 2))) (+ (* (* -1/2 (pow im -1/2)) (sqrt 2)) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re))) (* -1/2 (pow im -1/2)) -1/2 (pow im -1/2) (sqrt 2) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re)) (* 1/8 (pow im -3/2)) 1/8 (pow im -3/2) -3/2 (* (sqrt 2) re) (sqrt (* im 2)) (* im 2))

rewrite184.0ms (4.5%)

Memory

26.6MiB live, 215.7MiB allocated; 24ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	957	10124
0	1006	8481
0	4942	8156

Stop Event

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

Counts

307 → 458

Calls

Call 1

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

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

eval48.0ms (1.2%)

Memory: 1.7MiB live, 89.7MiB allocated; 13ms collecting garbage
Compiler: Compiled 11 502 to 1 778 computations (84.5% saved)

prune18.0ms (0.4%)

Memory

-9.5MiB live, 36.5MiB allocated; 6ms collecting garbage

Pruning

15 alts after pruning (11 fresh and 4 done)

	Pruned	Kept	Total
New	335	7	342
Fresh	5	4	9
Picked	1	4	5
Done	0	0	0
Total	341	15	356

Accuracy

99.4%

Counts

356 → 15

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	77.7%	(.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	55.4%	(.f64 (sqrt.f64 (.f64 (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	54.5%	(.f64 (sqrt.f64 (.f64 #s(approx (- (sqrt (+ (* im im) (* re re))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	54.6%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64))
▶	15.7%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))
	53.4%	(.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal -1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64))
	28.3%	(.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))
	69.9%	(.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))))
	30.1%	(.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)))))
✓	41.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
✓	6.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
✓	20.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
▶	72.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))))
	53.4%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(approx (+ (* (* -1/2 (pow im -1/2)) (sqrt 2)) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re))) (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/2 binary64))) re (sqrt.f64 (*.f64 im #s(literal 2 binary64))))))
▶	28.3%	(.f64 #s(literal 1/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)))))

Compiler

Compiled 574 to 428 computations (25.4% saved)

series50.0ms (1.2%)

Memory

16.0MiB live, 67.8MiB allocated; 16ms collecting garbage

Counts

34 → 276

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

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

Calls

6 calls:

Time	Variable		Point	Expression
14.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 (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (/ (* im im) re) (* im im) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (+ (* (- (/ re im) 2) re) (* 2 im)) (- (/ re im) 2) (/ re im) (* 2 im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (pow re -1/2)) (* 1 im) 1 (pow re -1/2) -1/2)
10.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 (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (/ (* im im) re) (* im im) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (+ (* (- (/ re im) 2) re) (* 2 im)) (- (/ re im) 2) (/ re im) (* 2 im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (pow re -1/2)) (* 1 im) 1 (pow re -1/2) -1/2)
6.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 (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (/ (* im im) re) (* im im) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (+ (* (- (/ re im) 2) re) (* 2 im)) (- (/ re im) 2) (/ re im) (* 2 im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (pow re -1/2)) (* 1 im) 1 (pow re -1/2) -1/2)
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 (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (/ (* im im) re) (* im im) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (+ (* (- (/ re im) 2) re) (* 2 im)) (- (/ re im) 2) (/ re im) (* 2 im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (pow re -1/2)) (* 1 im) 1 (pow re -1/2) -1/2)
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 (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (/ (* im im) re) (* im im) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (+ (* (- (/ re im) 2) re) (* 2 im)) (- (/ re im) 2) (/ re im) (* 2 im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (pow re -1/2)) (* 1 im) 1 (pow re -1/2) -1/2)

rewrite251.0ms (6.1%)

Memory

-22.1MiB live, 221.6MiB allocated; 46ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1264	11389
0	1298	9407
1	7349	9380
0	8783	9001

Stop Event

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

Counts

310 → 403

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

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

eval70.0ms (1.7%)

Memory: 23.9MiB live, 69.0MiB allocated; 5ms collecting garbage
Compiler: Compiled 11 190 to 2 123 computations (81% saved)

prune18.0ms (0.5%)

Memory

-5.9MiB live, 40.4MiB allocated; 3ms collecting garbage

Pruning

19 alts after pruning (13 fresh and 6 done)

	Pruned	Kept	Total
New	346	7	353
Fresh	0	6	6
Picked	3	2	5
Done	0	4	4
Total	349	19	368

Accuracy

99.7%

Counts

368 → 19

Alt Table

Click to see full alt table

Status	Accuracy	Program
	54.1%	(.f64 (.f64 (sqrt.f64 #s(approx (- (sqrt (+ (* im im) (* re re))) re) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	77.7%	(.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	55.4%	(.f64 (sqrt.f64 (.f64 (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	54.5%	(.f64 (sqrt.f64 (.f64 #s(approx (- (sqrt (+ (* im im) (* re re))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	54.6%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
✓	15.7%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))
	21.3%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 im (/.f64 im re)))) #s(literal 1/2 binary64))
	53.4%	(.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal -1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64))
▶	28.3%	(.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) im)) #s(literal 1/2 binary64))
▶	28.3%	(.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))
▶	69.9%	(.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))))
	30.1%	(.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)))))
✓	41.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
✓	6.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
✓	20.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
	28.5%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 (.f64 (/.f64 (-.f64 (.f64 (hypot.f64 re im) (hypot.f64 re im)) (*.f64 re re)) (+.f64 (hypot.f64 re im) re)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
	39.2%	(.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))))
▶	19.6%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 #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(literal 1/2 binary64))))
	53.4%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(approx (+ (* (* -1/2 (pow im -1/2)) (sqrt 2)) (* (* 1/8 (pow im -3/2)) (* (sqrt 2) re))) (.f64 (sqrt.f64 (.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/2 binary64))) re (sqrt.f64 (*.f64 im #s(literal 2 binary64))))))

Compiler

Compiled 722 to 530 computations (26.6% saved)

series164.0ms (4%)

Memory

8.6MiB live, 197.7MiB allocated; 19ms collecting garbage

Counts

38 → 292

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

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

Calls

6 calls:

Time	Variable		Point	Expression
49.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) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (* 1 im) (/ 1 (sqrt re))) (* 1 im) 1 (/ 1 (sqrt re)) (sqrt re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (pow re -1/2) im) (pow re -1/2) -1/2 (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 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)) (+ (* (log (/ -1 re)) -1) (log 4)) (log (/ -1 re)) (/ -1 re) -1 (log 4) 4)
45.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) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (* 1 im) (/ 1 (sqrt re))) (* 1 im) 1 (/ 1 (sqrt re)) (sqrt re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (pow re -1/2) im) (pow re -1/2) -1/2 (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 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)) (+ (* (log (/ -1 re)) -1) (log 4)) (log (/ -1 re)) (/ -1 re) -1 (log 4) 4)
20.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) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (* 1 im) (/ 1 (sqrt re))) (* 1 im) 1 (/ 1 (sqrt re)) (sqrt re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (pow re -1/2) im) (pow re -1/2) -1/2 (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 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)) (+ (* (log (/ -1 re)) -1) (log 4)) (log (/ -1 re)) (/ -1 re) -1 (log 4) 4)
7.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) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (* 1 im) (/ 1 (sqrt re))) (* 1 im) 1 (/ 1 (sqrt re)) (sqrt re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (pow re -1/2) im) (pow re -1/2) -1/2 (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 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)) (+ (* (log (/ -1 re)) -1) (log 4)) (log (/ -1 re)) (/ -1 re) -1 (log 4) 4)
7.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) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (- (sqrt (+ (* im im) (* re re))) re) 2) (- (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (* 1 im) (/ 1 (sqrt re))) (* 1 im) 1 (/ 1 (sqrt re)) (sqrt re) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (pow re -1/2) im) (pow re -1/2) -1/2 (* 1/2 (exp (* (log (* (- (sqrt (+ (* im im) (* re re))) re) 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)) (+ (* (log (/ -1 re)) -1) (log 4)) (log (/ -1 re)) (/ -1 re) -1 (log 4) 4)

rewrite205.0ms (5%)

Memory

7.2MiB live, 241.1MiB allocated; 38ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1745	16629
0	1780	14483
0	8397	13840

Stop Event

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

Counts

330 → 379

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

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

eval58.0ms (1.4%)

Memory: 22.5MiB live, 66.7MiB allocated; 5ms collecting garbage
Compiler: Compiled 18 656 to 2 363 computations (87.3% saved)

prune29.0ms (0.7%)

Memory

-36.4MiB live, 50.7MiB allocated; 11ms collecting garbage

Pruning

23 alts after pruning (13 fresh and 10 done)

	Pruned	Kept	Total
New	386	7	393
Fresh	2	6	8
Picked	1	4	5
Done	0	6	6
Total	389	23	412

Accuracy

99.7%

Counts

412 → 23

Alt Table

Click to see full alt table

Status	Accuracy	Program
	55.1%	(.f64 (.f64 (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) im) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
	54.1%	(.f64 (.f64 (sqrt.f64 #s(approx (- (sqrt (+ (* im im) (* re re))) re) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	77.7%	(.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	55.4%	(.f64 (sqrt.f64 (.f64 (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	54.5%	(.f64 (sqrt.f64 (.f64 #s(approx (- (sqrt (+ (* im im) (* re re))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	54.6%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
✓	15.7%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* im im) (* re re))) re) 2) (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))
	21.3%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* im im) (* re re))) re) 2) (*.f64 im (/.f64 im re)))) #s(literal 1/2 binary64))
✓	28.3%	(.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) im)) #s(literal 1/2 binary64))
	28.3%	(.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 #s(approx ( 1 im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))
	25.1%	(.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 (.f64 (/.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 (hypot.f64 im re) (hypot.f64 im re) (fma.f64 re re (*.f64 (hypot.f64 im re) re)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
	27.8%	(.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 (.f64 (/.f64 (-.f64 (.f64 (hypot.f64 im re) (hypot.f64 im re)) (.f64 re re)) (+.f64 (hypot.f64 im re) re)) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
✓	69.9%	(.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))))
	38.1%	(.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 (.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
	69.9%	(.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))) (pow.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))))
	30.1%	(.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)))))
✓	41.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
✓	6.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
✓	20.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
	28.5%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 (.f64 (/.f64 (-.f64 (.f64 (hypot.f64 re im) (hypot.f64 re im)) (*.f64 re re)) (+.f64 (hypot.f64 re im) re)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
	39.2%	(.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))))
✓	19.6%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 #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(literal 1/2 binary64))))
	19.4%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 4 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal -1 binary64)))))))

Compiler

Compiled 1 309 to 583 computations (55.5% saved)

regimes126.0ms (3.1%)

Memory

-28.6MiB live, 114.7MiB allocated; 129ms collecting garbage

Counts

36 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

67.0ms	re
14.0ms	(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)
9.0ms	im
8.0ms	(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))
8.0ms	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))

Results

Accuracy	Segments	Branch
77.7%	1	`(*.f64 im im)`
88.4%	2	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
88.4%	2	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
87.2%	2	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
87.2%	2	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
87.9%	2	`re`
77.7%	1	`im`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes40.0ms (1%)

Memory

27.3MiB live, 73.6MiB allocated; 3ms collecting garbage

Counts

21 → 3

Calls

Call 1

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

Outputs

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

7 calls:

7.0ms	re
6.0ms	im
5.0ms	(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))
5.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))))
5.0ms	(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)

Results

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

regimes13.0ms (0.3%)

Memory

-31.8MiB live, 13.6MiB allocated; 4ms collecting garbage

Counts

19 → 3

Calls

Call 1

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

Outputs

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

2 calls:

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

Results

Accuracy	Segments	Branch
77.5%	3	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
77.5%	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)

regimes14.0ms (0.3%)

Memory

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

Counts

16 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

3 calls:

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)

Results

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

Compiler

Compiled 23 to 18 computations (21.7% saved)

regimes12.0ms (0.3%)

Memory

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

Counts

13 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

3 calls:

4.0ms

re

3.0ms

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

3.0ms

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

Results

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

Compiler

Compiled 29 to 24 computations (17.2% saved)

regimes15.0ms (0.4%)

Memory

-40.4MiB live, 8.5MiB allocated; 8ms collecting garbage

Counts

8 → 3

Calls

Call 1

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

Calls

2 calls:

11.0ms	re
3.0ms	im

Results

Accuracy	Segments	Branch
61.0%	2	`im`
70.2%	3	`re`

Compiler

Compiled 2 to 4 computations (-100% saved)

regimes15.0ms (0.4%)

Memory

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

Counts

7 → 3

Calls

Call 1

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

Outputs

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

Calls

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

Results

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

Compiler

Compiled 54 to 43 computations (20.4% saved)

regimes2.0ms (0.1%)

Memory

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

Counts

4 → 2

Calls

Call 1

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

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

Calls

1 calls:

2.0ms

re

Results

Accuracy	Segments	Branch
62.7%	2	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes9.0ms (0.2%)

Memory

-28.7MiB live, 18.1MiB allocated; 2ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0	9.843171276338685e-308

Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.863461224771101e+146	1.9864829377765493e+146
0.0ms	0.0	9.843171276338685e-308

Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.863461224771101e+146	1.9864829377765493e+146
0.0ms	0.0	9.843171276338685e-308

Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch51.0ms (1.2%)

Memory

-0.9MiB live, 88.5MiB allocated; 11ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
31.0ms	7.662974723027507e+93	2.6007515558019023e+104
12.0ms	-3.103864823830863e+29	-2.1986093837290565e+27

Samples

12.0ms	175×	0	valid
7.0ms	33×	2	valid
6.0ms	45×	1	valid
6.0ms	19×	3	valid

Compiler

Compiled 853 to 659 computations (22.7% saved)

Precisions

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

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

ival-mult: 5.0ms (23.3% of total)

adjust: 3.0ms (14% of total)

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

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

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

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

exact: 0.0ms (0% of total)

bsearch3.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	7.662974723027507e+93	2.6007515558019023e+104
1.0ms	-3.103864823830863e+29	-2.1986093837290565e+27

Compiler

Compiled 700 to 574 computations (18% saved)

bsearch38.0ms (0.9%)

Memory

-9.4MiB live, 42.2MiB allocated; 9ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
22.0ms	7.662974723027507e+93	2.6007515558019023e+104
1.0ms	-3.103864823830863e+29	-2.1986093837290565e+27

Samples

5.0ms	27×	2	valid
5.0ms	18×	3	valid
3.0ms	25×	1	valid
3.0ms	42×	0	valid

Compiler

Compiled 650 to 524 computations (19.4% saved)

Precisions

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

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

adjust: 2.0ms (15.9% of total)

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

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

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

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

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

exact: 0.0ms (0% of total)

bsearch34.0ms (0.8%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
30.0ms	1.0136018932638779e+129	2.1712232170801995e+136
1.0ms	-3.103864823830863e+29	-2.1986093837290565e+27

Samples

9.0ms	32×	3	valid
8.0ms	39×	2	valid
5.0ms	39×	1	valid
2.0ms	34×	0	valid

Compiler

Compiled 576 to 476 computations (17.4% saved)

Precisions

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

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

adjust: 3.0ms (16.2% of total)

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

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

ival-sqrt: 2.0ms (10.8% 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

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-3.103864823830863e+29	-2.1986093837290565e+27

Compiler

Compiled 270 to 224 computations (17% saved)

simplify63.0ms (1.5%)

Memory

-5.1MiB live, 85.0MiB allocated; 11ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	100	543
1	129	543
2	207	543
3	412	543
4	1727	543
5	5507	543

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)) (.f64 #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (pow.f64 re #s(literal -1/2 binary64)) im)) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) (.f64 #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (pow.f64 re #s(literal -1/2 binary64)) im)) #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 189999999999999989608532542244330147673668766518374709649109067702331020071656162984364219905818102044713301325679389780922989584734916918217015296 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)) (.f64 #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 #s(approx ( 1 im) im) (/.f64 #s(literal 1 binary64) (sqrt.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 189999999999999989608532542244330147673668766518374709649109067702331020071656162984364219905818102044713301325679389780922989584734916918217015296 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 -8999999999999999844710088704 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 37000000000000001489167898823593689288169868014533846683025645539795758037460617096915849314304 binary64)) (.f64 (sqrt.f64 #s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64)) (.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 #s(approx ( 1 im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))))
(if (<=.f64 re #s(literal -8999999999999999844710088704 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 37000000000000001489167898823593689288169868014533846683025645539795758037460617096915849314304 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( re re) (* im im))) re) im)))) (.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 #s(approx ( 1 im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))))
(if (<=.f64 re #s(literal -8999999999999999844710088704 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 860000000000000002566848626977641395958356756852295452159930059136891247247850553035599537766400 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( re re) (* im im))) re) im)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))))
(if (<=.f64 re #s(literal -8999999999999999844710088704 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 20499999999999998814032118806126800066971953768203490240614254401263384403350417199385739118242751826676310486379371295512010237623140352 binary64)) (.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))) re) re))))))
(if (<=.f64 re #s(literal -8999999999999999844710088704 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) #s(approx (- (sqrt (+ ( re re) (* im im))) re) im)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))

Outputs
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) (.f64 #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (pow.f64 re #s(literal -1/2 binary64)) im)) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) (.f64 #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (pow.f64 re #s(literal -1/2 binary64)) im)) #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 189999999999999989608532542244330147673668766518374709649109067702331020071656162984364219905818102044713301325679389780922989584734916918217015296 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)) (.f64 #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 #s(approx ( 1 im) im) (/.f64 #s(literal 1 binary64) (sqrt.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 189999999999999989608532542244330147673668766518374709649109067702331020071656162984364219905818102044713301325679389780922989584734916918217015296 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 -8999999999999999844710088704 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 37000000000000001489167898823593689288169868014533846683025645539795758037460617096915849314304 binary64)) (.f64 (sqrt.f64 #s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64)) (.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 #s(approx ( 1 im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))))
(if (<=.f64 re #s(literal -8999999999999999844710088704 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 37000000000000001489167898823593689288169868014533846683025645539795758037460617096915849314304 binary64)) (.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64)) (.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 #s(approx ( 1 im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))))
(if (<=.f64 re #s(literal -8999999999999999844710088704 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 37000000000000001489167898823593689288169868014533846683025645539795758037460617096915849314304 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( re re) (* im im))) re) im)))) (.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 #s(approx ( 1 im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))))
(if (<=.f64 re #s(literal -8999999999999999844710088704 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 860000000000000002566848626977641395958356756852295452159930059136891247247850553035599537766400 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( re re) (* im im))) re) im)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))))
(if (<=.f64 re #s(literal -8999999999999999844710088704 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 20499999999999998814032118806126800066971953768203490240614254401263384403350417199385739118242751826676310486379371295512010237623140352 binary64)) (.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))) re) re))))))
(if (<=.f64 re #s(literal -8999999999999999844710088704 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) #s(approx (- (sqrt (+ ( re re) (* im im))) re) im)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))

derivations303.0ms (7.4%)

Memory

11.3MiB live, 244.4MiB allocated; 25ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 549 to 102 computations (81.4% saved)

preprocess64.0ms (1.6%)

Memory: 0.4MiB live, 97.2MiB allocated; 38ms collecting garbage
Remove: (abs im)
Compiler: Compiled 1 220 to 290 computations (76.2% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze107.0ms (2.6%)

sample1.4s (33%)

explain174.0ms (4.3%)

preprocess196.0ms (4.8%)

eval0.0ms (0%)

prune0.0ms (0%)

series38.0ms (0.9%)

rewrite218.0ms (5.3%)

eval41.0ms (1%)

prune16.0ms (0.4%)

series50.0ms (1.2%)

rewrite184.0ms (4.5%)

eval48.0ms (1.2%)

prune18.0ms (0.4%)

series50.0ms (1.2%)

rewrite251.0ms (6.1%)

eval70.0ms (1.7%)

prune18.0ms (0.5%)

series164.0ms (4%)

rewrite205.0ms (5%)

eval58.0ms (1.4%)

prune29.0ms (0.7%)

regimes126.0ms (3.1%)

regimes40.0ms (1%)

regimes13.0ms (0.3%)

regimes14.0ms (0.3%)

regimes12.0ms (0.3%)

regimes15.0ms (0.4%)

regimes15.0ms (0.4%)

regimes2.0ms (0.1%)

regimes9.0ms (0.2%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch51.0ms (1.2%)

bsearch3.0ms (0.1%)

bsearch38.0ms (0.9%)

bsearch34.0ms (0.8%)

bsearch1.0ms (0%)

simplify63.0ms (1.5%)

derivations303.0ms (7.4%)

preprocess64.0ms (1.6%)

end0.0ms (0%)

Profiling