Metrics for math.sqrt on complex, real part

start0.0ms (0%)

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

analyze119.0ms (2.5%)

Memory

-1.6MiB live, 97.8MiB allocated; 37ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.9%	0.1%	0%	0%	0%	0
0%	0%	99.9%	0.1%	0%	0%	0%	1
50%	50%	50%	0.1%	0%	0%	0%	2
50%	50%	50%	0.1%	0%	0%	0%	3
50%	50%	50%	0.1%	0%	0%	0%	4
62.5%	62.4%	37.5%	0.1%	0%	0%	0%	5
62.5%	62.4%	37.5%	0.1%	0%	0%	0%	6
68.8%	68.7%	31.2%	0.1%	0%	0%	0%	7
68.8%	68.7%	31.2%	0.1%	0%	0%	0%	8
71.9%	71.8%	28.1%	0.1%	0%	0%	0%	9
71.9%	71.8%	28.1%	0.1%	0%	0%	0%	10
73.4%	73.4%	26.5%	0.1%	0%	0%	0%	11
73.4%	73.4%	26.5%	0.1%	0%	0%	0%	12

Compiler

Compiled 17 to 11 computations (35.3% saved)

sample1.6s (32.7%)

Memory

48.8MiB live, 1 881.5MiB allocated; 387ms collecting garbage

Samples

654.0ms	6 246×	0	valid
236.0ms	794×	2	valid
156.0ms	472×	3	valid
146.0ms	744×	1	valid

Precisions

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

ival-hypot: 509.0ms (56.2% of total)

ival-mult: 156.0ms (17.2% of total)

ival-sqrt: 89.0ms (9.8% of total)

adjust: 70.0ms (7.7% of total)

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

exact: 11.0ms (1.2% of total)

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

Bogosity

explain188.0ms (3.9%)

Memory

-14.2MiB live, 265.1MiB allocated; 27ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
128	0	-	1	(-3.7899080061473665e-181 -1.3163243263606442e-158)	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`
29	0	-	3	(-1.4637856214859427e-207 -1.055923619887764e-259)	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
29	1	(-1.4852275426222203e-225 -1.6884411370165184e-274)	0	-	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
0	0	-	0	-	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
0	0	-	0	-	`(*.f64 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	-	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
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	113	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	113
↳	`(*.f64 re re)`	overflow	68
↳	`(*.f64 im im)`	overflow	62
`+.f64`	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	cancellation	30	0
`sqrt.f64`	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	uflow-rescue	26	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	14
↳	`(*.f64 im im)`	underflow	62
↳	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	underflow	7
↳	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	underflow	33
↳	`(*.f64 re re)`	underflow	53
↳	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	underflow	33
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	uflow-rescue	14	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	14
↳	`(*.f64 re re)`	underflow	53
↳	`(*.f64 im im)`	underflow	62

Confusion

	Predicted +	Predicted -
+	159	1
-	0	96

Precision

1.0

Recall

0.99375

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	159	0	1
-	0	0	96

Precision?

1.0

Recall?

0.99375

Freqs

test

number	freq
0	97
1	135
2	24

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

37.0ms	386×	0	valid
18.0ms	62×	2	valid
11.0ms	28×	3	valid
7.0ms	36×	1	valid

Compiler

Compiled 169 to 40 computations (76.3% saved)

Precisions

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

ival-hypot: 16.0ms (31.3% of total)

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

adjust: 7.0ms (13.7% of total)

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

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

exact: 1.0ms (2% of total)

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

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

preprocess199.0ms (4.1%)

Memory

-12.7MiB live, 180.3MiB allocated; 51ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	36	92
1	117	92
2	257	90
3	448	90
4	935	90
5	3057	90
6	6611	90
0	12	15
0	20	15
1	43	15
2	118	15
3	245	15
4	486	15
5	1545	15
6	4371	15
0	8525	10

Stop Event

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

Calls

Call 1

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

Outputs

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

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

Symmetry

(abs im)

Compiler

Compiled 15 to 12 computations (20% saved)

eval0.0ms (0%)

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

prune0.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

series23.0ms (0.5%)

Memory

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

Counts

12 → 119

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite260.0ms (5.4%)

Memory

-18.7MiB live, 212.6MiB allocated; 23ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	635	4546
0	648	4088
1	3839	3962
0	8215	3217

Stop Event

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

Counts

131 → 316

Calls

Call 1

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

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

eval47.0ms (1%)

Memory: 25.3MiB live, 75.0MiB allocated; 11ms collecting garbage
Compiler: Compiled 8 737 to 1 937 computations (77.8% saved)

prune103.0ms (2.1%)

Memory

-18.9MiB live, 169.3MiB allocated; 17ms collecting garbage

Pruning

6 alts after pruning (6 fresh and 0 done)

	Pruned	Kept	Total
New	316	6	322
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	317	6	323

Accuracy

87.8%

Counts

323 → 6

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	79.5%	(.f64 (pow.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
	27.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 (.f64 (hypot.f64 im re) (hypot.f64 im re)) (.f64 re re)) (-.f64 (hypot.f64 im re) re)))))
▶	40.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (hypot.f64 im re) (hypot.f64 im re)) #s(literal -1/2 binary64))) re))))
▶	8.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (/.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 im im) #s(literal 2 binary64))) (.f64 re re)) re (.f64 re (.f64 (.f64 im im) #s(literal 1/2 binary64)))) (.f64 re re)) #s(literal -1 binary64))))))
▶	14.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) re))))))
▶	51.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))

Compiler

Compiled 266 to 182 computations (31.6% saved)

series49.0ms (1%)

Memory

36.7MiB live, 82.7MiB allocated; 4ms collecting garbage

Counts

44 → 367

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite234.0ms (4.9%)

Memory

3.3MiB live, 277.6MiB allocated; 46ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1185	14573
0	1241	11554
1	6104	11265
0	8228	10762

Stop Event

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

Counts

411 → 695

Calls

Call 1

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

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

eval121.0ms (2.5%)

Memory: 31.3MiB live, 205.6MiB allocated; 58ms collecting garbage
Compiler: Compiled 23 500 to 4 263 computations (81.9% saved)

prune475.0ms (9.9%)

Memory

-99.9MiB live, 196.3MiB allocated; 706ms collecting garbage

Pruning

9 alts after pruning (6 fresh and 3 done)

	Pruned	Kept	Total
New	676	6	682
Fresh	1	0	1
Picked	2	3	5
Done	0	0	0
Total	679	9	688

Accuracy

90.3%

Counts

688 → 9

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	79.1%	(.f64 (pow.f64 (.f64 (pow.f64 (+.f64 (hypot.f64 re im) re) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
	52.3%	(.f64 (pow.f64 (.f64 (+.f64 (hypot.f64 (pow.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 1 binary64))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
▶	14.7%	(.f64 (.f64 (pow.f64 #s(approx (+ (sqrt (+ (* im im) (* re re))) re) (.f64 (/.f64 (.f64 im im) re) #s(literal -1/2 binary64))) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
✓	40.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (hypot.f64 im re) (hypot.f64 im re)) #s(literal -1/2 binary64))) re))))
✓	14.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) re))))))
▶	13.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (/.f64 (exp.f64 (.f64 (*.f64 #s(literal 2 binary64) (log.f64 im)) #s(literal 1 binary64))) re))))))
▶	16.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (.f64 im (/.f64 im re)))))))
✓	51.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
▶	48.1%	(.f64 #s(literal 1/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))))

Compiler

Compiled 318 to 240 computations (24.5% saved)

series99.0ms (2.1%)

Memory

9.3MiB live, 144.9MiB allocated; 14ms collecting garbage

Counts

43 → 420

Calls

Call 1

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

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

Calls

6 calls:

Time	Variable		Point	Expression
33.0ms	im	@	0	((* (pow (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) 1) 1/2) (pow (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) 1) (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im 1/2 (pow 2 1/2) 2 1 (* 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)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* -1/2 (* im (/ im re))) -1/2 (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* -1/2 (/ (exp (* (* 2 (log im)) 1)) re)) (/ (exp (* (* 2 (log im)) 1)) re) (exp (* (* 2 (log im)) 1)) (* (* 2 (log im)) 1) (* 2 (log im)) (log im) (* (* (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (pow 2 1/2)) 1/2) (* (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (pow 2 1/2)) (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (+ (sqrt (+ (* im im) (* re re))) re) (* (/ (* im im) re) -1/2) (/ (* im im) re) (* im im))
16.0ms	im	@	-inf	((* (pow (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) 1) 1/2) (pow (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) 1) (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im 1/2 (pow 2 1/2) 2 1 (* 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)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* -1/2 (* im (/ im re))) -1/2 (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* -1/2 (/ (exp (* (* 2 (log im)) 1)) re)) (/ (exp (* (* 2 (log im)) 1)) re) (exp (* (* 2 (log im)) 1)) (* (* 2 (log im)) 1) (* 2 (log im)) (log im) (* (* (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (pow 2 1/2)) 1/2) (* (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (pow 2 1/2)) (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (+ (sqrt (+ (* im im) (* re re))) re) (* (/ (* im im) re) -1/2) (/ (* im im) re) (* im im))
15.0ms	im	@	inf	((* (pow (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) 1) 1/2) (pow (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) 1) (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im 1/2 (pow 2 1/2) 2 1 (* 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)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* -1/2 (* im (/ im re))) -1/2 (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* -1/2 (/ (exp (* (* 2 (log im)) 1)) re)) (/ (exp (* (* 2 (log im)) 1)) re) (exp (* (* 2 (log im)) 1)) (* (* 2 (log im)) 1) (* 2 (log im)) (log im) (* (* (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (pow 2 1/2)) 1/2) (* (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (pow 2 1/2)) (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (+ (sqrt (+ (* im im) (* re re))) re) (* (/ (* im im) re) -1/2) (/ (* im im) re) (* im im))
11.0ms	re	@	-inf	((* (pow (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) 1) 1/2) (pow (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) 1) (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im 1/2 (pow 2 1/2) 2 1 (* 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)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* -1/2 (* im (/ im re))) -1/2 (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* -1/2 (/ (exp (* (* 2 (log im)) 1)) re)) (/ (exp (* (* 2 (log im)) 1)) re) (exp (* (* 2 (log im)) 1)) (* (* 2 (log im)) 1) (* 2 (log im)) (log im) (* (* (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (pow 2 1/2)) 1/2) (* (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (pow 2 1/2)) (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (+ (sqrt (+ (* im im) (* re re))) re) (* (/ (* im im) re) -1/2) (/ (* im im) re) (* im im))
5.0ms	re	@	inf	((* (pow (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) 1) 1/2) (pow (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) 1) (* (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (pow 2 1/2)) (pow (+ (sqrt (+ (* re re) (* im im))) re) 1/2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im 1/2 (pow 2 1/2) 2 1 (* 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)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* -1/2 (* im (/ im re))) -1/2 (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* -1/2 (/ (exp (* (* 2 (log im)) 1)) re)) (/ (exp (* (* 2 (log im)) 1)) re) (exp (* (* 2 (log im)) 1)) (* (* 2 (log im)) 1) (* 2 (log im)) (log im) (* (* (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (pow 2 1/2)) 1/2) (* (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (pow 2 1/2)) (pow (+ (sqrt (+ (* im im) (* re re))) re) 1/2) (+ (sqrt (+ (* im im) (* re re))) re) (* (/ (* im im) re) -1/2) (/ (* im im) re) (* im im))

rewrite302.0ms (6.3%)

Memory

36.8MiB live, 219.5MiB allocated; 57ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1449	18408
0	1495	14416
1	7792	14384
0	8021	13780

Stop Event

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

Counts

463 → 611

Calls

Call 1

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

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

eval52.0ms (1.1%)

Memory: 10.0MiB live, 63.3MiB allocated; 8ms collecting garbage
Compiler: Compiled 13 383 to 2 194 computations (83.6% saved)

prune70.0ms (1.5%)

Memory

-1.9MiB live, 88.6MiB allocated; 9ms collecting garbage

Pruning

10 alts after pruning (3 fresh and 7 done)

	Pruned	Kept	Total
New	374	2	376
Fresh	0	1	1
Picked	1	4	5
Done	0	3	3
Total	375	10	385

Accuracy

90.3%

Counts

385 → 10

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	79.1%	(.f64 (pow.f64 (.f64 (pow.f64 (+.f64 (hypot.f64 re im) re) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
▶	52.3%	(.f64 (pow.f64 (.f64 (+.f64 (hypot.f64 (pow.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 1 binary64))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
▶	16.0%	(.f64 (.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
✓	40.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (hypot.f64 im re) (hypot.f64 im re)) #s(literal -1/2 binary64))) re))))
✓	14.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) re))))))
✓	13.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (/.f64 (exp.f64 (.f64 (*.f64 #s(literal 2 binary64) (log.f64 im)) #s(literal 1 binary64))) re))))))
✓	16.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (.f64 im (/.f64 im re)))))))
✓	51.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
▶	47.9%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (+.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
✓	48.1%	(.f64 #s(literal 1/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))))

Compiler

Compiled 211 to 160 computations (24.2% saved)

series59.0ms (1.2%)

Memory

-28.6MiB live, 65.5MiB allocated; 16ms collecting garbage

Counts

33 → 353

Calls

Call 1

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

Outputs
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (* 1/2 (exp (* 1/2 (+ (log 2) (log im)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/4 (/ (* re (exp (* 1/2 (+ (log 2) (log im))))) im)) (* 1/2 (exp (* 1/2 (+ (log 2) (log im))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* 1/2 (+ (log 2) (log im))))) (* re (+ (* 1/16 (/ (* re (exp (* 1/2 (+ (log 2) (log im))))) (pow im 2))) (* 1/4 (/ (exp (* 1/2 (+ (log 2) (log im)))) im)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* 1/2 (+ (log 2) (log im))))) (* re (+ (* 1/4 (/ (exp (* 1/2 (+ (log 2) (log im)))) im)) (* re (+ (* -1/32 (/ (* re (exp (* 1/2 (+ (log 2) (log im))))) (pow im 3))) (* 1/16 (/ (exp (* 1/2 (+ (log 2) (log im)))) (pow im 2))))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (exp (* 1/2 (+ (log 2) (log im))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (log im)))) (* 1/2 (/ (* re (exp (* 1/2 (+ (log 2) (log im))))) im)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (log im)))) (* re (+ (* 1/8 (/ (* re (exp (* 1/2 (+ (log 2) (log im))))) (pow im 2))) (* 1/2 (/ (exp (* 1/2 (+ (log 2) (log im)))) im)))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (log im)))) (* re (+ (* 1/2 (/ (exp (* 1/2 (+ (log 2) (log im)))) im)) (* re (+ (* -1/16 (/ (* re (exp (* 1/2 (+ (log 2) (log im))))) (pow im 3))) (* 1/8 (/ (exp (* 1/2 (+ (log 2) (log im)))) (pow im 2))))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (log im)))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (log im))) (* 1/2 (/ re im)))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (log im))) (* re (+ (* -1/12 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (log 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 (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (log im))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log im) (/ re im)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log im) (* re (+ (* -1/6 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log im) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow im 5))) (* 1/6 (/ 1 (pow im 3))))) (/ 1 im)))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (log im)))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log im) (/ re im))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log im) (* re (+ (* -1/6 (/ (pow re 2) (pow im 3))) (/ 1 im))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log im) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow im 5))) (* 1/6 (/ 1 (pow im 3))))) (/ 1 im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (sqrt im)))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (* 1/2 (log im))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/2 (log im)) (* 1/2 (/ re im)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/2 (log im)) (* re (+ (* -1/12 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/2 (log 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 (* (* (/ im re) im) -1/2) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (* (/ im re) im) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx re #s(hole binary64 re))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 im))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (pow (pow re 1/2) 2) #s(hole binary64 re))
#s(approx (pow re 1/2) #s(hole binary64 (sqrt re)))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (* 1/2 (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (pow re 2))) (* 1/2 (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (pow re 2))) (+ (* 1/2 (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (* 1/2 (/ (* (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (pow re 2))) (+ (* 1/2 (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (+ (* 1/2 (/ (* (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/3072 (pow im 6)) (+ (* 1/1440 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/384 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))) (pow re 6))) (* 1/2 (/ (* (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (* 1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (pow re 2))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (pow re 2))) (/ (* (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (pow re 2))) (+ (/ (* (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/3072 (pow im 6)) (+ (* 1/1440 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/384 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))) (pow re 6)) (/ (* (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/4 (/ (pow im 2) (pow re 2))) (* 2 (log 2))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (* -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))) (* 2 (log 2)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (* -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))) (* 2 (log 2))))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log 2) (* -1 (log (/ 1 re))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 re))) (* 1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log 2) (+ (* -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 (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log 2) (+ (* -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 (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ 1 re)))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 2) (* -1 (log (/ 1 re))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 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 2) (* -1 (log (/ 1 re)))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 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 2) (* -1 (log (/ 1 re))))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 re))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (* 1/2 (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (pow re 2))) (* 1/2 (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (pow re 2))) (+ (* 1/2 (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (* 1/2 (/ (* (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (pow re 2))) (+ (* 1/2 (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (+ (* 1/2 (/ (* (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* -1/384 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/3072 (pow im 6)) (* 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/2 (/ (* (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (* -1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (pow re 2))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* -1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (pow re 2))) (/ (* (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* -1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (pow re 2))) (+ (/ (* (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* -1/384 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/3072 (pow im 6)) (* 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)) (/ (* (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (+ (log (/ -1 re)) (* -1/4 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (+ (log (/ -1 re)) (+ (* -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 (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (+ (log (/ -1 re)) (+ (* -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 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 1/2 (pow im 2))) (+ (log (/ -1 re)) (* -1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 1/2 (pow im 2))) (+ (log (/ -1 re)) (+ (* -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 (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 1/2 (pow im 2))) (+ (log (/ -1 re)) (+ (* -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 (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (* 1/2 (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 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/2 (pow im 2))) (log (/ -1 re))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 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/2 (pow im 2))) (log (/ -1 re)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1/2 (* (sqrt (* re (- (pow (sqrt -1) 2) 1))) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (/ (* (pow im 2) (sqrt 2)) (sqrt -1)) (sqrt (/ 1 (* (pow re 5) (- (pow (sqrt -1) 2) 1)))))) (* 1/2 (* (sqrt (/ (- (pow (sqrt -1) 2) 1) re)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 4) (sqrt 2)) (pow (sqrt -1) 5)) (sqrt (/ 1 (* (pow re 3) (- (pow (sqrt -1) 2) 1)))))) (* 1/8 (* (/ (* (pow im 2) (sqrt 2)) (sqrt -1)) (sqrt (/ re (- (pow (sqrt -1) 2) 1)))))) (pow re 3))) (* 1/2 (* (sqrt (/ (- (pow (sqrt -1) 2) 1) re)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 4) (sqrt 2)) (pow (sqrt -1) 5)) (sqrt (/ 1 (* (pow re 3) (- (pow (sqrt -1) 2) 1)))))) (+ (* 1/64 (* (/ (* (pow im 4) (sqrt 2)) (pow (sqrt -1) 3)) (sqrt (/ 1 (* (pow re 3) (pow (- (pow (sqrt -1) 2) 1) 3)))))) (* 1/8 (* (/ (* (pow im 2) (sqrt 2)) (sqrt -1)) (sqrt (/ re (- (pow (sqrt -1) 2) 1))))))) (pow re 3))) (* 1/2 (* (sqrt (/ (- (pow (sqrt -1) 2) 1) re)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* (sqrt (* re (- (pow (sqrt -1) 2) 1))) (* (sqrt -1) (sqrt 2))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1/2 (* (/ (pow im 2) (* (sqrt -1) (sqrt 2))) (sqrt (/ 1 (* (pow re 5) (- (pow (sqrt -1) 2) 1)))))) (* (sqrt (/ (- (pow (sqrt -1) 2) 1) re)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/8 (* (/ (pow im 4) (* (pow (sqrt -1) 5) (sqrt 2))) (sqrt (/ 1 (* (pow re 3) (- (pow (sqrt -1) 2) 1)))))) (* 1/2 (* (/ (pow im 2) (* (sqrt -1) (sqrt 2))) (sqrt (/ re (- (pow (sqrt -1) 2) 1)))))) (pow re 3))) (* (sqrt (/ (- (pow (sqrt -1) 2) 1) re)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/8 (* (/ (pow im 4) (* (pow (sqrt -1) 5) (sqrt 2))) (sqrt (/ 1 (* (pow re 3) (- (pow (sqrt -1) 2) 1)))))) (+ (* 1/8 (* (/ (pow im 4) (* (pow (sqrt -1) 3) (pow (sqrt 2) 3))) (sqrt (/ 1 (* (pow re 3) (pow (- (pow (sqrt -1) 2) 1) 3)))))) (* 1/2 (* (/ (pow im 2) (* (sqrt -1) (sqrt 2))) (sqrt (/ re (- (pow (sqrt -1) 2) 1))))))) (pow re 3))) (* (sqrt (/ (- (pow (sqrt -1) 2) 1) re)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -2 (* re (- (pow (sqrt -1) 2) 1)))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -1 (* re (+ (* 2 (- (pow (sqrt -1) 2) 1)) (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -1 (* re (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (sqrt -1) 6)))) (+ (* 2 (- (pow (sqrt -1) 2) 1)) (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -1 (* re (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (sqrt -1) 6)))) (+ (* 1/8 (/ (pow im 6) (* (pow re 6) (pow (sqrt -1) 10)))) (+ (* 2 (- (pow (sqrt -1) 2) 1)) (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2))))))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* re (- (pow (sqrt -1) 2) 1)))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* re (- (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))) (pow (sqrt -1) 2)) 1)))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* re (- (+ (* -1/8 (/ (pow im 4) (* (pow re 4) (pow (sqrt -1) 6)))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))) (pow (sqrt -1) 2))) 1)))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* re (- (+ (* -1/8 (/ (pow im 4) (* (pow re 4) (pow (sqrt -1) 6)))) (+ (* 1/16 (/ (pow im 6) (* (pow re 6) (pow (sqrt -1) 10)))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))) (pow (sqrt -1) 2)))) 1)))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 (* re (pow (sqrt -1) 2)))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 (* re (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))) (pow (sqrt -1) 2))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 (* re (+ (* -1/8 (/ (pow im 4) (* (pow re 4) (pow (sqrt -1) 6)))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))) (pow (sqrt -1) 2)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 (* re (+ (* -1/8 (/ (pow im 4) (* (pow re 4) (pow (sqrt -1) 6)))) (+ (* 1/16 (/ (pow im 6) (* (pow re 6) (pow (sqrt -1) 10)))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))) (pow (sqrt -1) 2))))))))
#s(approx (pow (pow re 1/2) 2) #s(hole binary64 (* -1 (* re (pow (sqrt -1) 2)))))
#s(approx (pow re 1/2) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (* 1/2 (exp (* 1/2 (+ (log 2) (log (* 2 re))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (pow re 2))) (* 1/2 (exp (* 1/2 (+ (log 2) (log (* 2 re)))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (* (pow im 2) (+ (* -5/256 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (pow re 4))) (* 1/16 (/ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (pow re 2))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (* (pow im 2) (+ (* 1/16 (/ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (pow re 2))) (* (pow im 2) (+ (* -5/256 (/ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (pow re 4))) (* 21/2048 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (pow re 6))))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (exp (* 1/2 (+ (log 2) (log (* 2 re)))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (* 1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (pow re 2))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (* (pow im 2) (+ (* -5/128 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (pow re 4))) (* 1/8 (/ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (pow re 2))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (* (pow im 2) (+ (* 1/8 (/ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (pow re 2))) (* (pow im 2) (+ (* -5/128 (/ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (pow re 4))) (* 21/1024 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (pow re 6))))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (log (* 2 re))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 2) (log (* 2 re)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (log (* 2 re)))) (* (pow im 2) (+ (* -3/64 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (log (* 2 re)))) (* (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 (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (log (* 2 re)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 2 re)) (* 1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 2 re)) (* (pow im 2) (+ (* -3/32 (/ (pow im 2) (pow re 4))) (* 1/4 (/ 1 (pow re 2)))))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 2 re)) (* (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 (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (log (* 2 re))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 2 re)) (* 1/4 (/ (pow im 2) (pow re 2))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 2 re)) (* (pow im 2) (+ (* -3/32 (/ (pow im 2) (pow re 4))) (* 1/4 (/ 1 (pow re 2))))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 2 re)) (* (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 (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (* 1/2 (log (* 2 re)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (log (* 2 re))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 re))) (* (pow im 2) (+ (* -3/64 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 re))) (* (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 (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (pow (* -1 im) 1) #s(hole binary64 (* -1 im)))
#s(approx (* -1 im) #s(hole binary64 (* -1 im)))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/4 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/4 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) (* 1/2 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/4 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) (+ (* 1/2 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/48 (pow re 3)) (+ (* 1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2))))))) (pow im 3))) (* 1/2 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (* 1/2 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/48 (pow re 3)) (+ (* 1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2))))))) (pow im 3)) (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im)))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/12 (/ (+ (* -3 (pow re 3)) (* 2 (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))))) (* 1/2 (/ re im)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (* -1 (log (/ 1 im))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (/ re im)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im)))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (/ re im))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (* -1/2 (log (/ 1 im)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1/2 (log (/ 1 im))) (* 1/2 (/ re im)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1/2 (log (/ 1 im))) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (* 1/2 (/ re im))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1/2 (log (/ 1 im))) (+ (* 1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (* 1/2 (/ re im)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* -1/4 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) im)) (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))) im)) (* 1/4 (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)) (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/48 (pow re 3)) (+ (* 1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2))))))) im)) (* 1/2 (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))))) im)) (* 1/4 (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)) (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/2 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) im)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))) im)) (* 1/2 (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/48 (pow re 3)) (+ (* 1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2))))))) im)) (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2)))))) im)) (* 1/2 (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -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 (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (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 (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (* -1 (log (/ -1 im))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ re im))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1 (/ (+ (* -1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/2 (+ (* -1 (pow re 2)) (pow re 2)))) im))) im))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* -1 (/ re im)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1 (/ (+ (* -1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/2 (+ (* -1 (pow re 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 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (* -1/2 (log (/ -1 im)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1/2 (log (/ -1 im))) (* -1/2 (/ re im)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) im)) (* 1/2 re)) im)) (* -1/2 (log (/ -1 im))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2)))) im)) (* 1/2 re)) im)) (* -1/2 (log (/ -1 im))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #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
12.0ms	re	@	-inf	((* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (log (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) im (log 2) 2 (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (log (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* (* (/ im re) im) -1/2) (* (/ im re) im) (/ im re) re -1/2 (pow 2 1/2) (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (pow (pow re 1/2) 2) (pow re 1/2) (pow (* -1 im) 1) (* -1 im) -1 1)
9.0ms	re	@	inf	((* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (log (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) im (log 2) 2 (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (log (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* (* (/ im re) im) -1/2) (* (/ im re) im) (/ im re) re -1/2 (pow 2 1/2) (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (pow (pow re 1/2) 2) (pow re 1/2) (pow (* -1 im) 1) (* -1 im) -1 1)
7.0ms	re	@	0	((* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (log (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) im (log 2) 2 (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (log (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* (* (/ im re) im) -1/2) (* (/ im re) im) (/ im re) re -1/2 (pow 2 1/2) (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (pow (pow re 1/2) 2) (pow re 1/2) (pow (* -1 im) 1) (* -1 im) -1 1)
5.0ms	im	@	0	((* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (log (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) im (log 2) 2 (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (log (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* (* (/ im re) im) -1/2) (* (/ im re) im) (/ im re) re -1/2 (pow 2 1/2) (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (pow (pow re 1/2) 2) (pow re 1/2) (pow (* -1 im) 1) (* -1 im) -1 1)
5.0ms	im	@	inf	((* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (log (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) im (log 2) 2 (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (log (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* (* (/ im re) im) -1/2) (* (/ im re) im) (/ im re) re -1/2 (pow 2 1/2) (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (pow (pow re 1/2) 2) (pow re 1/2) (pow (* -1 im) 1) (* -1 im) -1 1)

rewrite230.0ms (4.8%)

Memory

28.0MiB live, 251.1MiB allocated; 38ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1722	17347
0	1758	15386
0	8414	13340

Stop Event

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

Counts

386 → 438

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (+.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(literal 1/2 binary64)
(exp.f64 (.f64 (+.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(.f64 (+.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(+.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64)))
(log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
im
(log.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 (.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))
(exp.f64 (.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))
(log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))
(.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64))
(*.f64 (/.f64 im re) im)
(/.f64 im re)
re
#s(literal -1/2 binary64)
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(.f64 (pow.f64 (.f64 (+.f64 (hypot.f64 (pow.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 1 binary64))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (.f64 (+.f64 (hypot.f64 (pow.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 1 binary64))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(.f64 (+.f64 (hypot.f64 (pow.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 1 binary64))) re) #s(literal 2 binary64))
(+.f64 (hypot.f64 (pow.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 1 binary64))) re)
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 1 binary64)))
(pow.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 re #s(literal 1/2 binary64))
(pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) im)
#s(literal -1 binary64)
#s(literal 1 binary64)
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (* 1/2 (exp (* 1/2 (+ (log 2) (log im)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/4 (/ (* re (exp (* 1/2 (+ (log 2) (log im))))) im)) (* 1/2 (exp (* 1/2 (+ (log 2) (log im))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* 1/2 (+ (log 2) (log im))))) (* re (+ (* 1/16 (/ (* re (exp (* 1/2 (+ (log 2) (log im))))) (pow im 2))) (* 1/4 (/ (exp (* 1/2 (+ (log 2) (log im)))) im)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* 1/2 (+ (log 2) (log im))))) (* re (+ (* 1/4 (/ (exp (* 1/2 (+ (log 2) (log im)))) im)) (* re (+ (* -1/32 (/ (* re (exp (* 1/2 (+ (log 2) (log im))))) (pow im 3))) (* 1/16 (/ (exp (* 1/2 (+ (log 2) (log im)))) (pow im 2))))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (exp (* 1/2 (+ (log 2) (log im))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (log im)))) (* 1/2 (/ (* re (exp (* 1/2 (+ (log 2) (log im))))) im)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (log im)))) (* re (+ (* 1/8 (/ (* re (exp (* 1/2 (+ (log 2) (log im))))) (pow im 2))) (* 1/2 (/ (exp (* 1/2 (+ (log 2) (log im)))) im)))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (log im)))) (* re (+ (* 1/2 (/ (exp (* 1/2 (+ (log 2) (log im)))) im)) (* re (+ (* -1/16 (/ (* re (exp (* 1/2 (+ (log 2) (log im))))) (pow im 3))) (* 1/8 (/ (exp (* 1/2 (+ (log 2) (log im)))) (pow im 2))))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (log im)))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (log im))) (* 1/2 (/ re im)))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (log im))) (* re (+ (* -1/12 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (log 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 (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (log im))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log im) (/ re im)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log im) (* re (+ (* -1/6 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log im) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow im 5))) (* 1/6 (/ 1 (pow im 3))))) (/ 1 im)))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (log im)))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log im) (/ re im))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log im) (* re (+ (* -1/6 (/ (pow re 2) (pow im 3))) (/ 1 im))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log im) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow im 5))) (* 1/6 (/ 1 (pow im 3))))) (/ 1 im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (sqrt im)))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (* 1/2 (log im))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/2 (log im)) (* 1/2 (/ re im)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/2 (log im)) (* re (+ (* -1/12 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/2 (log 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 (* (* (/ im re) im) -1/2) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (* (/ im re) im) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx re #s(hole binary64 re))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 im))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (pow (pow re 1/2) 2) #s(hole binary64 re))
#s(approx (pow re 1/2) #s(hole binary64 (sqrt re)))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (* 1/2 (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (pow re 2))) (* 1/2 (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (pow re 2))) (+ (* 1/2 (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (* 1/2 (/ (* (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (pow re 2))) (+ (* 1/2 (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (+ (* 1/2 (/ (* (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/3072 (pow im 6)) (+ (* 1/1440 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/384 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))) (pow re 6))) (* 1/2 (/ (* (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (* 1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (pow re 2))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (pow re 2))) (/ (* (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))) (pow re 2))) (+ (/ (* (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/3072 (pow im 6)) (+ (* 1/1440 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/384 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))) (pow re 6)) (/ (* (exp (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))) (pow re 4)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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 (+ (* -1 (log (/ 1 re))) (* 2 (log 2))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 2 (log 2)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/4 (/ (pow im 2) (pow re 2))) (* 2 (log 2))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (* -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))) (* 2 (log 2)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (* -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))) (* 2 (log 2))))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log 2) (* -1 (log (/ 1 re))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 re))) (* 1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log 2) (+ (* -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 (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log 2) (+ (* -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 (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ 1 re)))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 2) (* -1 (log (/ 1 re))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 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 2) (* -1 (log (/ 1 re)))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 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 2) (* -1 (log (/ 1 re))))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 re))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (* 1/2 (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (pow re 2))) (* 1/2 (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (pow re 2))) (+ (* 1/2 (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (* 1/2 (/ (* (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* -1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (pow re 2))) (+ (* 1/2 (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (+ (* 1/2 (/ (* (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* -1/384 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/3072 (pow im 6)) (* 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/2 (/ (* (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (* -1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (pow re 2))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* -1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (pow re 2))) (/ (* (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* -1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))) (pow re 2))) (+ (/ (* (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* -1/384 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/3072 (pow im 6)) (* 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)) (/ (* (exp (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))) (+ (* 1/128 (pow im 4)) (* 1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))))) (pow re 4)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (+ (log (/ -1 re)) (* -1/4 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (+ (log (/ -1 re)) (+ (* -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 (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 1/2 (pow im 2))) (+ (log (/ -1 re)) (+ (* -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 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 1/2 (pow im 2))) (+ (log (/ -1 re)) (* -1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 1/2 (pow im 2))) (+ (log (/ -1 re)) (+ (* -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 (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 1/2 (pow im 2))) (+ (log (/ -1 re)) (+ (* -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 (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (* 1/2 (+ (log (* 1/2 (pow im 2))) (log (/ -1 re))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log (* 1/2 (pow im 2))) (log (/ -1 re)))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 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/2 (pow im 2))) (log (/ -1 re))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 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/2 (pow im 2))) (log (/ -1 re)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1/2 (* (sqrt (* re (- (pow (sqrt -1) 2) 1))) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (/ (* (pow im 2) (sqrt 2)) (sqrt -1)) (sqrt (/ 1 (* (pow re 5) (- (pow (sqrt -1) 2) 1)))))) (* 1/2 (* (sqrt (/ (- (pow (sqrt -1) 2) 1) re)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 4) (sqrt 2)) (pow (sqrt -1) 5)) (sqrt (/ 1 (* (pow re 3) (- (pow (sqrt -1) 2) 1)))))) (* 1/8 (* (/ (* (pow im 2) (sqrt 2)) (sqrt -1)) (sqrt (/ re (- (pow (sqrt -1) 2) 1)))))) (pow re 3))) (* 1/2 (* (sqrt (/ (- (pow (sqrt -1) 2) 1) re)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 4) (sqrt 2)) (pow (sqrt -1) 5)) (sqrt (/ 1 (* (pow re 3) (- (pow (sqrt -1) 2) 1)))))) (+ (* 1/64 (* (/ (* (pow im 4) (sqrt 2)) (pow (sqrt -1) 3)) (sqrt (/ 1 (* (pow re 3) (pow (- (pow (sqrt -1) 2) 1) 3)))))) (* 1/8 (* (/ (* (pow im 2) (sqrt 2)) (sqrt -1)) (sqrt (/ re (- (pow (sqrt -1) 2) 1))))))) (pow re 3))) (* 1/2 (* (sqrt (/ (- (pow (sqrt -1) 2) 1) re)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* (sqrt (* re (- (pow (sqrt -1) 2) 1))) (* (sqrt -1) (sqrt 2))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1/2 (* (/ (pow im 2) (* (sqrt -1) (sqrt 2))) (sqrt (/ 1 (* (pow re 5) (- (pow (sqrt -1) 2) 1)))))) (* (sqrt (/ (- (pow (sqrt -1) 2) 1) re)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/8 (* (/ (pow im 4) (* (pow (sqrt -1) 5) (sqrt 2))) (sqrt (/ 1 (* (pow re 3) (- (pow (sqrt -1) 2) 1)))))) (* 1/2 (* (/ (pow im 2) (* (sqrt -1) (sqrt 2))) (sqrt (/ re (- (pow (sqrt -1) 2) 1)))))) (pow re 3))) (* (sqrt (/ (- (pow (sqrt -1) 2) 1) re)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/8 (* (/ (pow im 4) (* (pow (sqrt -1) 5) (sqrt 2))) (sqrt (/ 1 (* (pow re 3) (- (pow (sqrt -1) 2) 1)))))) (+ (* 1/8 (* (/ (pow im 4) (* (pow (sqrt -1) 3) (pow (sqrt 2) 3))) (sqrt (/ 1 (* (pow re 3) (pow (- (pow (sqrt -1) 2) 1) 3)))))) (* 1/2 (* (/ (pow im 2) (* (sqrt -1) (sqrt 2))) (sqrt (/ re (- (pow (sqrt -1) 2) 1))))))) (pow re 3))) (* (sqrt (/ (- (pow (sqrt -1) 2) 1) re)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -2 (* re (- (pow (sqrt -1) 2) 1)))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -1 (* re (+ (* 2 (- (pow (sqrt -1) 2) 1)) (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -1 (* re (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (sqrt -1) 6)))) (+ (* 2 (- (pow (sqrt -1) 2) 1)) (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -1 (* re (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (sqrt -1) 6)))) (+ (* 1/8 (/ (pow im 6) (* (pow re 6) (pow (sqrt -1) 10)))) (+ (* 2 (- (pow (sqrt -1) 2) 1)) (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2))))))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* re (- (pow (sqrt -1) 2) 1)))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* re (- (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))) (pow (sqrt -1) 2)) 1)))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* re (- (+ (* -1/8 (/ (pow im 4) (* (pow re 4) (pow (sqrt -1) 6)))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))) (pow (sqrt -1) 2))) 1)))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* re (- (+ (* -1/8 (/ (pow im 4) (* (pow re 4) (pow (sqrt -1) 6)))) (+ (* 1/16 (/ (pow im 6) (* (pow re 6) (pow (sqrt -1) 10)))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))) (pow (sqrt -1) 2)))) 1)))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 (* re (pow (sqrt -1) 2)))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 (* re (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))) (pow (sqrt -1) 2))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 (* re (+ (* -1/8 (/ (pow im 4) (* (pow re 4) (pow (sqrt -1) 6)))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))) (pow (sqrt -1) 2)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 (* re (+ (* -1/8 (/ (pow im 4) (* (pow re 4) (pow (sqrt -1) 6)))) (+ (* 1/16 (/ (pow im 6) (* (pow re 6) (pow (sqrt -1) 10)))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (sqrt -1) 2)))) (pow (sqrt -1) 2))))))))
#s(approx (pow (pow re 1/2) 2) #s(hole binary64 (* -1 (* re (pow (sqrt -1) 2)))))
#s(approx (pow re 1/2) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (* 1/2 (exp (* 1/2 (+ (log 2) (log (* 2 re))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (pow re 2))) (* 1/2 (exp (* 1/2 (+ (log 2) (log (* 2 re)))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (* (pow im 2) (+ (* -5/256 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (pow re 4))) (* 1/16 (/ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (pow re 2))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/2 (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (* (pow im 2) (+ (* 1/16 (/ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (pow re 2))) (* (pow im 2) (+ (* -5/256 (/ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (pow re 4))) (* 21/2048 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (pow re 6))))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (exp (* 1/2 (+ (log 2) (log (* 2 re)))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (* 1/8 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (pow re 2))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (* (pow im 2) (+ (* -5/128 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (pow re 4))) (* 1/8 (/ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (pow re 2))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (* (pow im 2) (+ (* 1/8 (/ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (pow re 2))) (* (pow im 2) (+ (* -5/128 (/ (exp (* 1/2 (+ (log 2) (log (* 2 re))))) (pow re 4))) (* 21/1024 (/ (* (pow im 2) (exp (* 1/2 (+ (log 2) (log (* 2 re)))))) (pow re 6))))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (log (* 2 re))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 2) (log (* 2 re)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (log (* 2 re)))) (* (pow im 2) (+ (* -3/64 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (log (* 2 re)))) (* (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 (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (log (* 2 re)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 2 re)) (* 1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 2 re)) (* (pow im 2) (+ (* -3/32 (/ (pow im 2) (pow re 4))) (* 1/4 (/ 1 (pow re 2)))))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (log (* 2 re)) (* (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 (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (log (* 2 re))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 2 re)) (* 1/4 (/ (pow im 2) (pow re 2))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 2 re)) (* (pow im 2) (+ (* -3/32 (/ (pow im 2) (pow re 4))) (* 1/4 (/ 1 (pow re 2))))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (log (* 2 re)) (* (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 (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (* 1/2 (log (* 2 re)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (log (* 2 re))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 re))) (* (pow im 2) (+ (* -3/64 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 re))) (* (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 (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (pow (* -1 im) 1) #s(hole binary64 (* -1 im)))
#s(approx (* -1 im) #s(hole binary64 (* -1 im)))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/4 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/4 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) (* 1/2 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* 1/4 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) (+ (* 1/2 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/48 (pow re 3)) (+ (* 1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2))))))) (pow im 3))) (* 1/2 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (* 1/2 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/2 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/48 (pow re 3)) (+ (* 1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2))))))) (pow im 3)) (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))) (pow im 2)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im)))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* 1/12 (/ (+ (* -3 (pow re 3)) (* 2 (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))))) (* 1/2 (/ re im)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (* -1 (log (/ 1 im))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (/ re im)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im)))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (/ re im))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (* -1/2 (log (/ 1 im)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1/2 (log (/ 1 im))) (* 1/2 (/ re im)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1/2 (log (/ 1 im))) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (* 1/2 (/ re im))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1/2 (log (/ 1 im))) (+ (* 1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (* 1/2 (/ re im)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* -1/4 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) im)) (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))) im)) (* 1/4 (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)) (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/48 (pow re 3)) (+ (* 1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2))))))) im)) (* 1/2 (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))))) im)) (* 1/4 (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)) (* 1/2 (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/2 (/ (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) im)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2))))) im)) (* 1/2 (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) #s(hole binary64 (+ (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/48 (pow re 3)) (+ (* 1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2))))))) im)) (* (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* 1/8 (pow re 2)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2)))))) im)) (* 1/2 (* re (exp (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -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 (+ (* re re) (* im im))) re)) (log 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (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 (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (* -1 (log (/ -1 im))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ re im))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1 (/ (+ (* -1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/2 (+ (* -1 (pow re 2)) (pow re 2)))) im))) im))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* -1 (/ re im)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1 (/ (+ (* -1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/2 (+ (* -1 (pow re 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 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (* -1/2 (log (/ -1 im)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1/2 (log (/ -1 im))) (* -1/2 (/ re im)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) im)) (* 1/2 re)) im)) (* -1/2 (log (/ -1 im))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2)))) im)) (* 1/2 re)) im)) (* -1/2 (log (/ -1 im))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) #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 #s(literal 1/2 binary64) (pow.f64 (exp.f64 (+.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(literal 1/2 binary64)
(pow.f64 (exp.f64 (+.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(exp.f64 (.f64 (+.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(+.f64 (cosh.f64 (.f64 (+.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) (sinh.f64 (.f64 (+.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
(.f64 (+.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(/.f64 (-.f64 (.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) im)) (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))) (.f64 (log.f64 #s(literal 2 binary64)) (log.f64 #s(literal 2 binary64)))) (-.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (-.f64 (.f64 (log.f64 #s(literal 2 binary64)) (log.f64 #s(literal 2 binary64))) (.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64))))))
(+.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64)))
(log.f64 (.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) im) #s(literal 2 binary64)))
(log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
im
(log.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 (.f64 (pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64))) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (pow.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64))) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))
(pow.f64 (exp.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))
(pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(exp.f64 (.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))) (sinh.f64 (.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))))
(.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))
(log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))
(.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64))
(*.f64 (/.f64 im re) im)
(/.f64 (neg.f64 im) (neg.f64 re))
(/.f64 im re)
re
#s(literal -1/2 binary64)
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(.f64 (pow.f64 (.f64 (+.f64 (pow.f64 (fma.f64 re re (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(.f64 (pow.f64 (.f64 (+.f64 (pow.f64 (fma.f64 re re (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (.f64 (+.f64 (pow.f64 (fma.f64 re re (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(.f64 (pow.f64 (+.f64 (pow.f64 (fma.f64 re re (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))
(pow.f64 (.f64 (+.f64 (pow.f64 (fma.f64 re re (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (+.f64 (pow.f64 (fma.f64 re re (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 (+.f64 (pow.f64 (fma.f64 re re (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(.f64 (+.f64 (pow.f64 (fma.f64 re re (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (pow.f64 (fma.f64 re re (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (fma.f64 re re (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (.f64 re re)) (-.f64 (pow.f64 (fma.f64 re re (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re))
(/.f64 (+.f64 (pow.f64 (pow.f64 (fma.f64 re re (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (.f64 (.f64 re re) re)) (fma.f64 (pow.f64 (fma.f64 re re (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (fma.f64 re re (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (-.f64 (.f64 re re) (.f64 (pow.f64 (fma.f64 re re (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re))))
(+.f64 (pow.f64 (fma.f64 re re (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re)
(pow.f64 (fma.f64 re re (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 re re (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 1 binary64))) (neg.f64 (*.f64 #s(literal -1 binary64) im)))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 1 binary64))) (fabs.f64 (*.f64 #s(literal -1 binary64) im)))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 1 binary64))) (*.f64 #s(literal -1 binary64) im))
(hypot.f64 (neg.f64 re) (neg.f64 (*.f64 #s(literal -1 binary64) im)))
(hypot.f64 (neg.f64 re) (fabs.f64 (*.f64 #s(literal -1 binary64) im)))
(hypot.f64 (neg.f64 re) (*.f64 #s(literal -1 binary64) im))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 1 binary64))) (neg.f64 (*.f64 #s(literal -1 binary64) im)))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 1 binary64))) (fabs.f64 (*.f64 #s(literal -1 binary64) im)))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 1 binary64))) (*.f64 #s(literal -1 binary64) im))
(hypot.f64 (fabs.f64 re) (neg.f64 (*.f64 #s(literal -1 binary64) im)))
(hypot.f64 (fabs.f64 re) (fabs.f64 (*.f64 #s(literal -1 binary64) im)))
(hypot.f64 (fabs.f64 re) (*.f64 #s(literal -1 binary64) im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 (*.f64 #s(literal -1 binary64) im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 (*.f64 #s(literal -1 binary64) im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (*.f64 #s(literal -1 binary64) im))
(hypot.f64 re (neg.f64 (*.f64 #s(literal -1 binary64) im)))
(hypot.f64 re (fabs.f64 (*.f64 #s(literal -1 binary64) im)))
(hypot.f64 re (*.f64 #s(literal -1 binary64) im))
(*.f64 (pow.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 re #s(literal 1/2 binary64)) (pow.f64 re #s(literal 1/2 binary64)))
(pow.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 re #s(literal 1 binary64))
(exp.f64 (*.f64 (log.f64 (pow.f64 re #s(literal 1/2 binary64))) #s(literal 2 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))
(sqrt.f64 re)
(exp.f64 (*.f64 (log.f64 re) #s(literal 1/2 binary64)))
(.f64 (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 1/2 binary64)) (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 1/2 binary64)))
(*.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 1 binary64)))
(*.f64 #s(literal -1 binary64) im)
(pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 1 binary64))
(exp.f64 (.f64 (log.f64 (.f64 #s(literal -1 binary64) im)) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 #s(literal -1 binary64) im) #s(literal 1/2 binary64)) (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 1/2 binary64)))
(*.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 1 binary64)))
(*.f64 #s(literal -1 binary64) im)
(pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 1 binary64))
(exp.f64 (.f64 (log.f64 (.f64 #s(literal -1 binary64) im)) #s(literal 1 binary64)))
#s(literal -1 binary64)
#s(literal 1 binary64)
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 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 im)))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 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 im))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 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 im))) (.f64 re (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im)))) (.f64 im im)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im))) im))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 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 im))) (.f64 re (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im))) im)) (.f64 re (fma.f64 #s(literal -1/32 binary64) (/.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im)))) (.f64 (.f64 im im) im)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im))) (.f64 im im)))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (-.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im)))) im))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (-.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im))) (.f64 (neg.f64 re) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im)))) (.f64 im 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 im))) im))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (-.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im))) (.f64 (neg.f64 re) (+.f64 (.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 im))) im)) (.f64 re (fma.f64 #s(literal -1/16 binary64) (/.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im)))) (.f64 (.f64 im im) im)) (.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im))) (.f64 im im)))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64) (*.f64 (log.f64 im) #s(literal 1/2 binary64))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im)) (*.f64 #s(literal 1/2 binary64) (/.f64 re im))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im)) (.f64 re (fma.f64 #s(literal -1/12 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) im)) (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im)) (fma.f64 (.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 (.f64 (.f64 im im) im) #s(literal -1 binary64))))) re (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64))) re))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im)))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 im) (/.f64 re im))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (-.f64 (log.f64 im) (.f64 (neg.f64 re) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) im)) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 im) (fma.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 (.f64 (.f64 im im) im) #s(literal -1 binary64))))) re (*.f64 (pow.f64 im #s(literal -1 binary64)) re)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (log.f64 im))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (log.f64 im) (/.f64 re im)))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (-.f64 (log.f64 im) (.f64 (neg.f64 re) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) im)) (pow.f64 im #s(literal -1 binary64))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (log.f64 im) (fma.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 (.f64 (.f64 im im) im) #s(literal -1 binary64))))) re (*.f64 (pow.f64 im #s(literal -1 binary64)) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im (.f64 re (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (-.f64 im (.f64 (neg.f64 re) (-.f64 #s(literal 1 binary64) (.f64 (neg.f64 re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) im)) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 re (fma.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (.f64 re (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 re (fma.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (*.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (*.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (*.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (fma.f64 re (fma.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))) (*.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (fma.f64 re (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 re (fma.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow.f64 im #s(literal 1/2 binary64)))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (-.f64 (pow.f64 im #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) re))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (+.f64 (pow.f64 im #s(literal 1/2 binary64)) (.f64 re (fma.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) re) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (+.f64 (pow.f64 im #s(literal 1/2 binary64)) (.f64 re (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (fma.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) re) (.f64 #s(literal 1/8 binary64) (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (*.f64 #s(literal 1/2 binary64) (log.f64 im)))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (fma.f64 #s(literal 1/2 binary64) (log.f64 im) (*.f64 #s(literal 1/2 binary64) (/.f64 re im))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (-.f64 (.f64 #s(literal 1/2 binary64) (log.f64 im)) (.f64 (neg.f64 re) (fma.f64 #s(literal -1/12 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) im)) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (fma.f64 #s(literal 1/2 binary64) (log.f64 im) (fma.f64 (.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 (.f64 (.f64 im im) im) #s(literal -1 binary64))))) re (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64))) re))))
#s(approx (* (* (/ im re) im) -1/2) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) re)))
#s(approx (* (/ im re) im) (/.f64 (*.f64 im im) re))
#s(approx (/ im re) (/.f64 im re))
#s(approx re re)
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 re (fma.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (.f64 re (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 re (fma.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (*.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (*.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (fma.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (fma.f64 re (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 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 1/2 binary64)))) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) #s(literal -1 binary64)))) (*.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (fma.f64 re (fma.f64 re (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 (.f64 re (-.f64 (pow.f64 (.f64 (.f64 im im) #s(literal 4 binary64)) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 im im) #s(literal 2 binary64)) #s(literal -1 binary64)))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 (-.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 1/2 binary64)))))) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) #s(literal -1 binary64)))) (*.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (*.f64 #s(literal 2 binary64) im))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (fma.f64 #s(literal 2 binary64) im (*.f64 #s(literal 2 binary64) re)))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (fma.f64 #s(literal 2 binary64) im (*.f64 re (+.f64 #s(literal 2 binary64) (/.f64 re im)))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (fma.f64 #s(literal 2 binary64) im (.f64 re (-.f64 #s(literal 2 binary64) (.f64 (neg.f64 re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) im)) (pow.f64 im #s(literal -1 binary64))))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) im)
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (+.f64 im (.f64 re (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 re im))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (-.f64 im (.f64 (neg.f64 re) (-.f64 #s(literal 1 binary64) (.f64 (neg.f64 re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) im)) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) im)
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (+.f64 im (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) im))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (+.f64 im (.f64 (.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) im)) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (+.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 (.f64 (.f64 im im) im) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx (pow (pow re 1/2) 2) re)
#s(approx (pow re 1/2) (pow.f64 re #s(literal 1/2 binary64)))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 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) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 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) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal 1/128 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/48 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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 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) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal 1/3072 binary64) (pow.f64 im #s(literal 6 binary64)) (fma.f64 #s(literal 1/1440 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))))) (.f64 #s(literal 1/384 binary64) (.f64 (.f64 im im) (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)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal 1/128 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/48 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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (*.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (+.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64)))))) (.f64 re re)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (+.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64)))))) (.f64 re re)) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal 1/128 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/48 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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (+.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64)))))) (.f64 re re)) (/.f64 (fma.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal 1/3072 binary64) (pow.f64 im #s(literal 6 binary64)) (fma.f64 #s(literal 1/1440 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))))) (.f64 #s(literal 1/384 binary64) (.f64 (.f64 im im) (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 (pow.f64 re #s(literal 6 binary64)) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal 1/128 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/48 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))))))))) (.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 (log.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 im im) (.f64 re re)) (fma.f64 (log.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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)) (fma.f64 (log.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 1/2 binary64) (.f64 (*.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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)) (fma.f64 (log.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (*.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 im im) (.f64 re re)) (*.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 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))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 im im) (.f64 re re)) (.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 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))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 im im) (.f64 re re)) (*.f64 #s(literal 2 binary64) (log.f64 #s(literal 2 binary64))))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (log.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 im im) (*.f64 re re))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (log.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 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 (+ (* re re) (* im im))) re)) (+.f64 (log.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 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 (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 re (-.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (.f64 re re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.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 (+ (* re re) (* im im))) re) (.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 (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (.f64 re (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (.f64 re (fma.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (.f64 re (fma.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/64 binary64) (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (*.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (.f64 re (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (.f64 re (fma.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (.f64 re (fma.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (*.f64 (pow.f64 re #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (.f64 re (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 im im) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (.f64 re (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 im im) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (.f64 re (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 im im) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (*.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 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 2 binary64)) (log.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64)))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 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 2 binary64)) (log.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 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 2 binary64)) (log.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal -1 binary64)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 re (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 re (fma.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 re (fma.f64 #s(literal -1/32 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/64 binary64) (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (*.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 1/2 binary64))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 re (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 re (fma.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 re (fma.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/64 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (pow.f64 (pow.f64 re #s(literal 9 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (*.f64 #s(literal 4 binary64) re))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (.f64 re (+.f64 #s(literal 4 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (.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 (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (.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 (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (*.f64 #s(literal 2 binary64) re))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (.f64 re (-.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (.f64 re re))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (.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 (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (.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 (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re)
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.f64 re (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (.f64 re re))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.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 (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.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 (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 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 (log.f64 (.f64 #s(literal 1/2 binary64) (*.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)))))) (.f64 re re)) (.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (+.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)))))) (.f64 re re))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))) (.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 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))) (fma.f64 #s(literal 1/128 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/48 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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (+.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)))))) (.f64 re re))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))) (+.f64 (.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 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))) (+.f64 (.f64 #s(literal -1/384 binary64) (.f64 (.f64 im im) (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/3072 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 1/1440 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)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))) (fma.f64 #s(literal 1/128 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/48 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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (-.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)))))) (.f64 re re)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (+.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)))))) (.f64 re re)) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))) (fma.f64 #s(literal 1/128 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/48 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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (+.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)))))) (.f64 re re)) (+.f64 (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))) (+.f64 (.f64 #s(literal -1/384 binary64) (.f64 (.f64 im im) (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/3072 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 1/1440 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)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))) (fma.f64 #s(literal 1/128 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/48 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 (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (*.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (*.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (*.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)))))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (+.f64 (-.f64 (log.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 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 (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (+.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)) (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 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 im im) (*.f64 re re))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (+.f64 (-.f64 (log.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 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 (+ (* re re) (* im im))) re)) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (+.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)) (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 (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1 binary64) (/.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 (+ (* re re) (* im im))) re) (.f64 #s(literal -1 binary64) (/.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 (+ (* re re) (* im im))) re) (.f64 #s(literal -1 binary64) (/.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 (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (fma.f64 #s(literal 1/32 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 re #s(literal 1/2 binary64))) (.f64 #s(literal 1/64 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 1/2 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) (.f64 (.f64 re re) re)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im (*.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 re #s(literal 1/2 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 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/64 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 1/2 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) (.f64 (.f64 re re) re)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im (*.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (.f64 (.f64 im (*.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 im (*.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 re #s(literal 1/2 binary64))) (.f64 #s(literal 1/32 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 1/2 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) (.f64 (.f64 re re) re)) (.f64 (.f64 im (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 re #s(literal 1/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 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/32 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 1/2 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) (.f64 (.f64 re re) re)) (.f64 (.f64 im (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (.f64 (.f64 im (sqrt.f64 #s(literal -1/2 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) im) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 im (sqrt.f64 #s(literal -1/2 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) im) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 re #s(literal 1/2 binary64))) (.f64 #s(literal 1/32 binary64) (.f64 (/.f64 (.f64 (pow.f64 im #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) (.f64 (.f64 re re) re)) (.f64 (*.f64 im (sqrt.f64 #s(literal -1/2 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) im) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 re #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/512 binary64) (.f64 (/.f64 (.f64 (pow.f64 im #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/32 binary64) (.f64 (/.f64 (.f64 (pow.f64 im #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) (.f64 (.f64 re re) re)) (.f64 (*.f64 im (sqrt.f64 #s(literal -1/2 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (*.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (+.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 im im) (.f64 re re))) (.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (+.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 im im) (.f64 re re))) (+.f64 (.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) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re)))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (+.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 im im) (.f64 re re))) (+.f64 (.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)))) (+.f64 (.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) (+.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im))) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 re))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (*.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 #s(literal -1 binary64) (.f64 re (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 im im) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 (.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -2 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (/.f64 #s(literal -2 binary64) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/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 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal 5 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal -2 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (.f64 im im) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 (/.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64))))) (.f64 (.f64 re re) re)) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/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 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal 5 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal -2 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/64 binary64) (.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal -8 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (.f64 im im) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 (/.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64)))))) (.f64 (.f64 re re) re)) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (*.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 #s(literal -1 binary64) (.f64 re (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 im im) (sqrt.f64 #s(literal -2 binary64))) (pow.f64 (pow.f64 (.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -2 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (pow.f64 (/.f64 #s(literal -2 binary64) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 #s(literal -1 binary64) (.f64 re (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal 5 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (pow.f64 (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal -2 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 im im) (sqrt.f64 #s(literal -2 binary64))) (pow.f64 (/.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64))))) (.f64 (.f64 re re) re)) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 #s(literal -1 binary64) (.f64 re (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)) #s(literal 5 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (pow.f64 (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal -2 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (sqrt.f64 #s(literal -2 binary64)) #s(literal 3 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal -8 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 im im) (sqrt.f64 #s(literal -2 binary64))) (pow.f64 (/.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64)))))) (.f64 (.f64 re re) re)) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (.f64 #s(literal -2 binary64) (.f64 re #s(literal -2 binary64))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (.f64 #s(literal -1 binary64) (.f64 re (+.f64 #s(literal -4 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) #s(literal -1 binary64)))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (.f64 #s(literal -1 binary64) (.f64 re (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1 binary64))) (+.f64 #s(literal -4 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) #s(literal -1 binary64))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (.f64 #s(literal -1 binary64) (.f64 re (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal -1 binary64))) (+.f64 #s(literal -4 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) #s(literal -1 binary64)))))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (.f64 #s(literal -1 binary64) (.f64 re #s(literal -2 binary64))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (.f64 #s(literal -1 binary64) (.f64 re (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) #s(literal -1 binary64))) #s(literal -1 binary64)) #s(literal 1 binary64)))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (.f64 #s(literal -1 binary64) (.f64 re (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) #s(literal -1 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (.f64 #s(literal -1 binary64) (.f64 re (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) #s(literal -1 binary64))) #s(literal -1 binary64)))) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.f64 #s(literal -1 binary64) (.f64 re #s(literal -1 binary64))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.f64 #s(literal -1 binary64) (.f64 re (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) #s(literal -1 binary64))) #s(literal -1 binary64)))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.f64 #s(literal -1 binary64) (.f64 re (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) #s(literal -1 binary64))) #s(literal -1 binary64))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.f64 #s(literal -1 binary64) (.f64 re (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) #s(literal -1 binary64))) #s(literal -1 binary64)))))))
#s(approx (pow (pow re 1/2) 2) (.f64 #s(literal -1 binary64) (.f64 re #s(literal -1 binary64))))
#s(approx (pow re 1/2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal -1 binary64))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 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 (log.f64 #s(literal 2 binary64)) (log.f64 re))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re))))) (.f64 re re)) (.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re))))) (.f64 (neg.f64 (.f64 im im)) (fma.f64 #s(literal -5/256 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re))))) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))) (*.f64 re re)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 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)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))) (.f64 (.f64 im im) (-.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))) (.f64 re re))) (.f64 (neg.f64 (.f64 im im)) (fma.f64 #s(literal -5/256 binary64) (/.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 21/2048 binary64) (/.f64 (.f64 (*.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re))))) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (+.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re))))) (.f64 re re)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (-.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))) (.f64 (neg.f64 (.f64 im im)) (fma.f64 #s(literal -5/128 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re))))) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))) (.f64 re re)))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (-.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))) (.f64 (neg.f64 (.f64 im im)) (-.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))) (.f64 re re))) (.f64 (neg.f64 (.f64 im im)) (fma.f64 #s(literal -5/128 binary64) (/.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 21/1024 binary64) (/.f64 (.f64 (*.f64 im im) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re))))) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (*.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re))) (.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 (*.f64 re re) #s(literal -1 binary64)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re))) (.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 (pow.f64 re #s(literal 4 binary64)) #s(literal -1 binary64)))) (.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 re re) #s(literal -1 binary64)))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (-.f64 (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (*.f64 re re))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)) (.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 (*.f64 re re) #s(literal -1 binary64))))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (+.f64 (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)) (.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 (pow.f64 re #s(literal 4 binary64)) #s(literal -1 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 re re) #s(literal -1 binary64))))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (-.f64 (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)) (.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 (*.f64 re re) #s(literal -1 binary64)))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)) (.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 (pow.f64 re #s(literal 4 binary64)) #s(literal -1 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 re re) #s(literal -1 binary64)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) re) (.f64 #s(literal 2 binary64) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (.f64 #s(literal 2 binary64) re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (.f64 #s(literal 2 binary64) 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 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx im im)
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal 2 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64))))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/8 binary64) (pow.f64 (pow.f64 (.f64 (*.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal 2 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal 2 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (.f64 (*.f64 re re) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (fma.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64) (.f64 (.f64 im im) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal 2 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64))))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (fma.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal 2 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal 2 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (.f64 (.f64 re re) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 im im) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 re #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (-.f64 (.f64 (pow.f64 re #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 im im)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal 2 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64))))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) #s(literal -1 binary64))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (fma.f64 (pow.f64 re #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (.f64 (.f64 im im) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 (fma.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal 2 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal 2 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (.f64 (*.f64 re re) #s(literal 2 binary64)))))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (log.f64 (pow.f64 (*.f64 #s(literal 2 binary64) re) #s(literal 1/2 binary64))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 im im) (.f64 re re)) (log.f64 (pow.f64 (*.f64 #s(literal 2 binary64) re) #s(literal 1/2 binary64)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)) (.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 (*.f64 re re) #s(literal -1 binary64)))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 re)) (.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 (pow.f64 re #s(literal 4 binary64)) #s(literal -1 binary64)))) (.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 re re) #s(literal -1 binary64)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal 2 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64))))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/8 binary64) (pow.f64 (pow.f64 (.f64 (*.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal 2 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (pow.f64 (pow.f64 re #s(literal 5 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 (.f64 re re) re) #s(literal 2 binary64)) #s(literal -1 binary64)) (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (.f64 (*.f64 re re) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 1/2 binary64)))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 1/2 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal -5/64 binary64) (.f64 (.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 7 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (pow.f64 (.f64 (*.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 1/2 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal -5/64 binary64) (pow.f64 (pow.f64 (pow.f64 re #s(literal 7 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 21/512 binary64) (.f64 (*.f64 im im) (pow.f64 (pow.f64 (pow.f64 re #s(literal 11 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (+.f64 (.f64 #s(literal 4 binary64) re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) re)) (pow.f64 re #s(literal -1 binary64))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (+.f64 (.f64 #s(literal 4 binary64) re) (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (pow.f64 re #s(literal -1 binary64))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) re) (.f64 #s(literal 2 binary64) re)))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (+.f64 (.f64 #s(literal 2 binary64) re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (+.f64 (.f64 #s(literal 2 binary64) 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 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (-.f64 re (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) re))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (+.f64 re (.f64 (.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) re)) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (+.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 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx (* -1 im) (*.f64 #s(literal -1 binary64) im))
#s(approx (* -1 im) (*.f64 #s(literal -1 binary64) im))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 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) (-.f64 #s(literal 0 binary64) (log.f64 im)))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)))))) 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) (-.f64 #s(literal 0 binary64) (log.f64 im))))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)))))) 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) (-.f64 #s(literal 0 binary64) (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) (-.f64 #s(literal 0 binary64) (log.f64 im))))) (fma.f64 #s(literal 1/8 binary64) (.f64 re re) (.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re))))) (*.f64 im im))))))
#s(approx (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)))))) 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) (-.f64 #s(literal 0 binary64) (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) (-.f64 #s(literal 0 binary64) (log.f64 im))))) (fma.f64 #s(literal 1/48 binary64) (.f64 (.f64 re re) re) (fma.f64 #s(literal 1/12 binary64) (fma.f64 #s(literal -3 binary64) (.f64 (.f64 re re) re) (.f64 #s(literal 2 binary64) (.f64 (.f64 re re) re))) (.f64 #s(literal 1/8 binary64) (.f64 re (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re))))))) (.f64 (.f64 im im) 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) (-.f64 #s(literal 0 binary64) (log.f64 im))))) (fma.f64 #s(literal 1/8 binary64) (.f64 re re) (.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re))))) (.f64 im im)))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im))))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (-.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)))))) im))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (+.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)))))) im) (/.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im))))) (fma.f64 #s(literal 1/8 binary64) (.f64 re re) (.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re))))) (.f64 im im)))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (+.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)))))) im) (/.f64 (fma.f64 (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im))))) (fma.f64 #s(literal 1/48 binary64) (.f64 (.f64 re re) re) (fma.f64 #s(literal 1/12 binary64) (fma.f64 #s(literal -3 binary64) (.f64 (.f64 re re) re) (.f64 #s(literal 2 binary64) (.f64 (.f64 re re) re))) (.f64 #s(literal 1/8 binary64) (.f64 re (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re))))))) (.f64 im im) (.f64 (.f64 (.f64 im im) im) (.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im))))) (fma.f64 #s(literal 1/8 binary64) (.f64 re re) (.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re))))))) (.f64 (.f64 (.f64 im im) im) (.f64 im im))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im))) #s(literal 1/2 binary64))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)))) (.f64 #s(literal 1/2 binary64) (/.f64 re im))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re)) (.f64 im im)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)))) (*.f64 #s(literal 1/2 binary64) (/.f64 re im)))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 #s(literal 1/12 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (.f64 (.f64 re re) re) (.f64 #s(literal 2 binary64) (.f64 (.f64 re re) re))) (.f64 (.f64 im im) im)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re)) (.f64 im im)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (log.f64 #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)))) (.f64 #s(literal 1/2 binary64) (/.f64 re im))))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (-.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)) (/.f64 re im))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re)) (*.f64 im im)) (/.f64 re im)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)) (fma.f64 #s(literal 1/6 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (.f64 (.f64 re re) re) (.f64 #s(literal 2 binary64) (.f64 (.f64 re re) re))) (.f64 (.f64 im im) im)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re)) (.f64 im im)) (/.f64 re im))))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)) (/.f64 re im)))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re)) (*.f64 im im)) (/.f64 re im))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)) (fma.f64 #s(literal 1/6 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (.f64 (.f64 re re) re) (.f64 #s(literal 2 binary64) (.f64 (.f64 re re) re))) (.f64 (.f64 im im) im)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re)) (.f64 im im)) (/.f64 re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 im (+.f64 #s(literal 1 binary64) (/.f64 re im))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) 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/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 re im))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (.f64 im (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (.f64 im (fma.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (.f64 im (fma.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (.f64 im (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (.f64 im (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (.f64 im (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (fma.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) im (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (*.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) re)) im)))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (.f64 im (+.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re re)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (*.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) re))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (.f64 im (+.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re re)) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re re)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (*.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) re)))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (fma.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)) (*.f64 #s(literal 1/2 binary64) (/.f64 re im))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (fma.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (log.f64 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 re im)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (fma.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)) (fma.f64 #s(literal 1/12 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (.f64 (.f64 re re) re) (.f64 #s(literal 2 binary64) (.f64 (.f64 re re) re))) (.f64 (.f64 im im) 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 re im))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 im (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 im (fma.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 im (fma.f64 #s(literal -1/16 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 im (fma.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 im (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 (.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 im (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 (.f64 re re) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 (.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) (.f64 (pow.f64 (pow.f64 (.f64 (*.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 re (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (.f64 im (+.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (/.f64 re im)))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) 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 (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (.f64 im (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 re im) (/.f64 (.f64 re re) (*.f64 im im)))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (*.f64 im (+.f64 #s(literal 1 binary64) (/.f64 re im))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 re im)))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) 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/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 re im))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.f64 im (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.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 (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.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 (* 1/2 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re (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)))))) 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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2))) (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/8 binary64) (.f64 re re) (.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re))))) im) (.f64 #s(literal 1/4 binary64) (.f64 re (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)))))))) 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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 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/48 binary64) (.f64 (.f64 re re) re) (fma.f64 #s(literal 1/12 binary64) (fma.f64 #s(literal -3 binary64) (.f64 (.f64 re re) re) (.f64 #s(literal 2 binary64) (.f64 (.f64 re re) re))) (.f64 #s(literal 1/8 binary64) (.f64 re (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re))))))) 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/8 binary64) (.f64 re re) (.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re))))))) im) (.f64 #s(literal 1/4 binary64) (.f64 re (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)))))))) 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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/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 (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/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/2 binary64) (/.f64 (.f64 re (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)))))) im))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/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 (.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/8 binary64) (.f64 re re) (.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) (.f64 re (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)))))))) im))))
#s(approx (exp (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/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 (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/48 binary64) (.f64 (.f64 re re) re) (fma.f64 #s(literal 1/12 binary64) (fma.f64 #s(literal -3 binary64) (.f64 (.f64 re re) re) (.f64 #s(literal 2 binary64) (.f64 (.f64 re re) re))) (.f64 #s(literal 1/8 binary64) (.f64 re (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re))))))) 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/8 binary64) (.f64 re re) (.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) (.f64 re (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)))))))) im))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 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 (+ (* re re) (* im im))) re)) (log 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)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))))
#s(approx (* (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (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 (+ (* re re) (* im im))) re)) (log 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 -3 binary64) (.f64 (.f64 re re) re) (.f64 #s(literal 2 binary64) (.f64 (.f64 re re) re))) 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 (+ (* re re) (* im im))) re)) (log 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 (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 im)) (*.f64 #s(literal -1 binary64) (/.f64 re im)))))
#s(approx (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 im)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 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 (+ (* re re) (* im im))) re)) (log 2)) (+.f64 (log.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 im)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 re (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/6 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (.f64 (.f64 re re) re) (.f64 #s(literal 2 binary64) (.f64 (.f64 re re) re))) im) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re)))) im))) im)))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal -1 binary64) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 im)) (*.f64 #s(literal -1 binary64) (/.f64 re im))))
#s(approx (log (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal -1 binary64) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 im)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 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 (+ (* re re) (* im im))) re)) (fma.f64 #s(literal -1 binary64) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 im)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 re (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/6 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (.f64 (.f64 re re) re) (.f64 #s(literal 2 binary64) (.f64 (.f64 re re) re))) im) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re)))) im))) im))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1 binary64) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1 binary64) (.f64 im (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1 binary64) (.f64 im (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 re (.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) im))) im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1 binary64) (.f64 im (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (-.f64 re (.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))) im))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (sqrt.f64 #s(literal -2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) 1/2) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (sqrt.f64 #s(literal -2 binary64)))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))))
#s(approx (* (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/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 (pow.f64 im #s(literal 1/2 binary64)) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64)))))) (.f64 (.f64 im im) im)) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (sqrt.f64 #s(literal -2 binary64)))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (sqrt.f64 #s(literal -2 binary64)))) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (pow 2 1/2)) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64)))))) (.f64 (.f64 im im) im)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (sqrt.f64 #s(literal -2 binary64)))) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)))) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)))) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))))))))
#s(approx (exp (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2)) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (.f64 (.f64 re re) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (.f64 (.f64 re re) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)))))) (.f64 (.f64 im im) im)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64)))) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))))))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1/2 binary64))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (fma.f64 #s(literal -1/2 binary64) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 im)) (*.f64 #s(literal -1/2 binary64) (/.f64 re im))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 1/2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 re re) (.f64 re re)) im) (*.f64 #s(literal 1/2 binary64) re)) im) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1/2 binary64)))))
#s(approx (* (log (+ (sqrt (+ (* re re) (* im im))) re)) 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 -3 binary64) (.f64 (.f64 re re) re) (.f64 #s(literal 2 binary64) (.f64 (.f64 re re) re))) 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) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1/2 binary64)))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (sqrt.f64 #s(literal -2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) 1/2) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (sqrt.f64 #s(literal -2 binary64)))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))))
#s(approx (* (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/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 (pow.f64 im #s(literal 1/2 binary64)) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (.f64 (.f64 re re) (sqrt.f64 #s(literal -2 binary64)))))) (.f64 (.f64 im im) im)) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 re (sqrt.f64 #s(literal -2 binary64)))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 (.f64 re (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (pow.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 (.f64 (.f64 re re) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 (*.f64 re (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))))))
#s(approx (pow (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) 1/2) (.f64 #s(literal -1 binary64) (.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (/.f64 (.f64 (.f64 re re) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 1/2 binary64)) (/.f64 (.f64 (.f64 re re) (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))) (.f64 (.f64 im im) im)) (fma.f64 (pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 im im) im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 (.f64 re (pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)))))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (*.f64 #s(literal -2 binary64) im))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) 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 (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (.f64 #s(literal -1 binary64) (.f64 im (+.f64 #s(literal 2 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) im) (*.f64 #s(literal 2 binary64) re)) im))))))
#s(approx (* (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) 2) (.f64 #s(literal -1 binary64) (.f64 im (-.f64 #s(literal 2 binary64) (.f64 #s(literal 1 binary64) (/.f64 (fma.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) (.f64 #s(literal 2 binary64) re)) im))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (*.f64 #s(literal -1 binary64) im))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (.f64 #s(literal -1 binary64) (.f64 im (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 re im))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (.f64 #s(literal -1 binary64) (.f64 im (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 re (.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) im))) im))))))
#s(approx (+ (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) re) (.f64 #s(literal -1 binary64) (.f64 im (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (-.f64 re (.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))) im))))))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (*.f64 #s(literal -1 binary64) im))
#s(approx (sqrt (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.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 (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.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 (+ (* (pow (pow re 1/2) 2) (pow (pow re 1/2) 2)) (* (pow (* -1 im) 1) (pow (* -1 im) 1)))) (.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)))))))))

eval58.0ms (1.2%)

Memory: 20.5MiB live, 109.7MiB allocated; 10ms collecting garbage
Compiler: Compiled 22 106 to 2 630 computations (88.1% saved)

prune83.0ms (1.7%)

Memory

-32.7MiB live, 117.6MiB allocated; 44ms collecting garbage

Pruning

12 alts after pruning (4 fresh and 8 done)

	Pruned	Kept	Total
New	447	4	451
Fresh	0	0	0
Picked	1	2	3
Done	1	6	7
Total	449	12	461

Accuracy

90.3%

Counts

461 → 12

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	79.1%	(.f64 (pow.f64 (.f64 (pow.f64 (+.f64 (hypot.f64 re im) re) #s(literal 1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
✓	52.3%	(.f64 (pow.f64 (.f64 (+.f64 (hypot.f64 (pow.f64 (pow.f64 re #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 #s(literal -1 binary64) im) #s(literal 1 binary64))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
✓	16.0%	(.f64 (.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
	16.0%	(.f64 (.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))) (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))) #s(literal 1/2 binary64))
✓	40.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (hypot.f64 im re) (hypot.f64 im re)) #s(literal -1/2 binary64))) re))))
✓	14.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) re))))))
✓	13.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (/.f64 (exp.f64 (.f64 (*.f64 #s(literal 2 binary64) (log.f64 im)) #s(literal 1 binary64))) re))))))
✓	16.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (.f64 im (/.f64 im re)))))))
✓	51.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
	47.6%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (/.f64 (-.f64 (.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) im)) (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))) (.f64 (log.f64 #s(literal 2 binary64)) (log.f64 #s(literal 2 binary64)))) (-.f64 (log.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
	47.2%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (/.f64 (+.f64 (pow.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (-.f64 (.f64 (log.f64 #s(literal 2 binary64)) (log.f64 #s(literal 2 binary64))) (.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (log.f64 #s(literal 2 binary64)))))) #s(literal 1/2 binary64))))
	47.8%	(.f64 #s(literal 1/2 binary64) #s(approx (exp ( (+ (log (+ (sqrt (+ (* re re) (* im im))) re)) (log 2)) 1/2)) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (-.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (log.f64 im)))))))

Compiler

Compiled 885 to 383 computations (56.7% saved)

regimes40.0ms (0.8%)

Memory

26.5MiB live, 72.3MiB allocated; 5ms collecting garbage

Counts

19 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

9.0ms	(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))
6.0ms	im
5.0ms	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
79.5%	1	`(*.f64 im im)`
84.9%	2	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
84.9%	2	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
85.5%	2	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
85.5%	2	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
82.1%	2	`re`
79.5%	1	`im`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes39.0ms (0.8%)

Memory

4.5MiB live, 53.8MiB allocated; 12ms collecting garbage

Counts

16 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
61.5%	2	`im`
61.5%	2	`(*.f64 im im)`
62.8%	4	`re`
68.8%	3	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
68.8%	3	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
69.1%	3	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
69.1%	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))))`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes27.0ms (0.6%)

Memory

8.0MiB live, 53.0MiB allocated; 8ms collecting garbage

Counts

10 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
57.3%	2	`re`
54.5%	2	`(*.f64 im im)`
54.9%	2	`im`
57.2%	2	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
57.2%	2	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
57.6%	2	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
57.6%	2	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes21.0ms (0.4%)

Memory

-6.2MiB live, 39.8MiB allocated; 6ms collecting garbage

Counts

6 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes17.0ms (0.3%)

Memory

-11.6MiB live, 35.5MiB allocated; 4ms collecting garbage

Counts

5 → 1

Calls

Call 1

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

Outputs
(.f64 #s(literal 1/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))))

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes8.0ms (0.2%)

Memory

22.1MiB live, 22.0MiB allocated; 0ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0	1.392007123818607e-138

Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	5.683274376028228e+76	+inf
0.0ms	0.0	1.392007123818607e-138

Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0	1.392007123818607e-138

Compiler

Compiled 18 to 17 computations (5.6% saved)

simplify62.0ms (1.3%)

Memory

-22.7MiB live, 75.7MiB allocated; 10ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	66	267
1	99	265
2	188	262
3	364	262
4	940	262
5	7809	262

Stop Event

1×	node limit

Calls

Call 1

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

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

derivations189.0ms (3.9%)

Memory

-12.1MiB live, 125.8MiB allocated; 21ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 268 to 66 computations (75.4% saved)

preprocess64.0ms (1.3%)

Memory: 7.4MiB live, 94.6MiB allocated; 15ms collecting garbage
Remove: (abs im)
Compiler: Compiled 878 to 354 computations (59.7% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze119.0ms (2.5%)

sample1.6s (32.7%)

explain188.0ms (3.9%)

preprocess199.0ms (4.1%)

eval0.0ms (0%)

prune0.0ms (0%)

series23.0ms (0.5%)

rewrite260.0ms (5.4%)

eval47.0ms (1%)

prune103.0ms (2.1%)

series49.0ms (1%)

rewrite234.0ms (4.9%)

eval121.0ms (2.5%)

prune475.0ms (9.9%)

series99.0ms (2.1%)

rewrite302.0ms (6.3%)

eval52.0ms (1.1%)

prune70.0ms (1.5%)

series59.0ms (1.2%)

rewrite230.0ms (4.8%)

eval58.0ms (1.2%)

prune83.0ms (1.7%)

regimes40.0ms (0.8%)

regimes39.0ms (0.8%)

regimes27.0ms (0.6%)

regimes21.0ms (0.4%)

regimes17.0ms (0.3%)

regimes8.0ms (0.2%)

bsearch0.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

simplify62.0ms (1.3%)

derivations189.0ms (3.9%)

preprocess64.0ms (1.3%)

end0.0ms (0%)

Profiling