Metrics for math.log10 on complex, real part

start0.0ms (0%)

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

analyze87.0ms (2.9%)

Memory

-3.0MiB live, 86.8MiB allocated; 19ms 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
0%	0%	99.9%	0.1%	0%	0%	0%	2
0%	0%	99.9%	0.1%	0%	0%	0%	3
0%	0%	99.9%	0.1%	0%	0%	0%	4
18.8%	18.7%	81.2%	0.1%	0%	0%	0%	5
34.4%	34.3%	65.6%	0.1%	0%	0%	0%	6
54.7%	54.6%	45.3%	0.1%	0%	0%	0%	7
64.8%	64.8%	35.1%	0.1%	0%	0%	0%	8
76.2%	76.1%	23.8%	0.1%	0%	0%	0%	9
81.8%	81.8%	18.1%	0.1%	0%	0%	0%	10
87.8%	87.7%	12.2%	0.1%	0%	0%	0%	11
90.8%	90.7%	9.2%	0.1%	0%	0%	0%	12

Compiler

Compiled 14 to 9 computations (35.7% saved)

sample940.0ms (31%)

Memory

13.6MiB live, 1 093.1MiB allocated; 202ms collecting garbage

Samples

656.0ms

8 256×

valid

Precisions

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

ival-hypot: 246.0ms (62.3% of total)

ival-log: 86.0ms (21.8% of total)

ival-div!: 61.0ms (15.4% of total)

adjust: 2.0ms (0.5% of total)

Bogosity

explain147.0ms (4.8%)

Memory

35.2MiB live, 183.3MiB allocated; 18ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
122	-	2	(-2.918802070263346e-203 2.4556213925469152e-157)	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`
0	-	0	-	`(log.f64 #s(literal 10 binary64))`
0	-	0	-	`(/.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 #s(literal 10 binary64)))`
0	-	0	-	`(*.f64 re re)`
0	-	0	-	`im`
0	-	0	-	`(+.f64 (.f64 re re) (.f64 im im))`
0	-	0	-	`re`
0	-	0	-	`(*.f64 im im)`
0	-	0	-	`#s(literal 10 binary64)`
0	-	0	-	`(log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.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	105	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	105
↳	`(*.f64 re re)`	overflow	59
↳	`(*.f64 im im)`	overflow	61
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	uflow-rescue	15	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	15
↳	`(*.f64 re re)`	underflow	63
↳	`(*.f64 im im)`	underflow	63

Confusion

	Predicted +	Predicted -
+	120	2
-	0	134

Precision

1.0

Recall

0.9836065573770492

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	120	0	2
-	0	0	134

Precision?

1.0

Recall?

0.9836065573770492

Freqs

test

number	freq
0	136
1	120

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

60.0ms

512×

valid

Compiler

Compiled 110 to 34 computations (69.1% saved)

Precisions

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

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

ival-log: 5.0ms (21.3% of total)

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

ival-div!: 2.0ms (8.5% of total)

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

adjust: 0.0ms (0% of total)

preprocess12.0ms (0.4%)

Memory

-24.7MiB live, 20.0MiB allocated; 7ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	28	74
1	60	74
2	110	74
3	135	74
4	173	74

Stop Event

1×

saturated

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	54.1%	(/.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 #s(literal 10 binary64)))

Symmetry

(abs re)

(abs im)

(sort re im)

Compiler

Compiled 24 to 20 computations (16.7% saved)

series15.0ms (0.5%)

Memory

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

Counts

10 → 79

Calls

Call 1

Inputs
(/.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 #s(literal 10 binary64)))
(log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))))
(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))
(+.f64 (.f64 re re) (.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)

Outputs
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#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
3.0ms	re	@	inf	((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log 10) 10)
3.0ms	im	@	0	((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log 10) 10)
3.0ms	re	@	0	((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log 10) 10)
2.0ms	im	@	inf	((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log 10) 10)
1.0ms	re	@	-inf	((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log 10) 10)

rewrite294.0ms (9.7%)

Memory

-39.6MiB live, 267.1MiB allocated; 133ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	360	2530
0	371	2390
1	2012	2358
0	9623	1900

Stop Event

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

Counts

89 → 221

Calls

Call 1

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

eval28.0ms (0.9%)

Memory: 4.9MiB live, 58.5MiB allocated; 11ms collecting garbage
Compiler: Compiled 4 050 to 932 computations (77% saved)

prune10.0ms (0.3%)

Memory

-22.1MiB live, 24.4MiB allocated; 3ms collecting garbage

Pruning

8 alts after pruning (8 fresh and 0 done)

	Pruned	Kept	Total
New	200	8	208
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	201	8	209

Accuracy

99.7%

Counts

209 → 8

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.0%	(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
▶	99.1%	(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
▶	25.0%	(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))))) (log.f64 #s(literal 10 binary64)))
	0.0%	(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (log.f64 #s(literal 10 binary64)))
▶	0.0%	(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))) (log.f64 #s(literal 10 binary64)))
	10.5%	(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) re)) (log.f64 #s(literal 10 binary64)))
▶	98.8%	(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
	3.0%	#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))

Compiler

Compiled 258 to 202 computations (21.7% saved)

series52.0ms (1.7%)

Memory

6.9MiB live, 95.3MiB allocated; 9ms collecting garbage

Counts

36 → 295

Calls

Call 1

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

Outputs
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#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 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log im) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#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 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (log im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 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 (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (pow im 3)))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* 1/2 (/ (pow re 6) (pow im 3))) (pow im 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow re 6) (+ (* -1/8 (/ (pow re 6) (pow im 9))) (* 1/2 (/ 1 (pow im 3))))) (pow im 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow re 6) (+ (* (pow re 6) (- (* 1/16 (/ (pow re 6) (pow im 15))) (* 1/8 (/ 1 (pow im 9))))) (* 1/2 (/ 1 (pow im 3))))) (pow im 3))))
#s(approx (pow re 3) #s(hole binary64 (pow re 3)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (pow im 2)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* -1/2 (pow re 2)) (pow im 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 2))) 1/2)) (pow im 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* 3/16 (/ (pow re 2) (pow im 4))) (* 3/8 (/ 1 (pow im 2))))) 1/2)) (pow im 2))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (pow im 4)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow im 4))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* (pow re 2) (- (pow re 2) (pow im 2))) (pow im 4))))
#s(approx (pow re 4) #s(hole binary64 (pow re 4)))
#s(approx (- (pow im 4) (pow (* re im) 2)) #s(hole binary64 (pow im 4)))
#s(approx (- (pow im 4) (pow (* re im) 2)) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow im 4))))
#s(approx (pow (* re im) 2) #s(hole binary64 (* (pow im 2) (pow re 2))))
#s(approx (* re im) #s(hole binary64 (* im re)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (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 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ 1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (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 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (pow re 3)))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow re 3) (+ 1 (* 1/2 (/ (pow im 6) (pow re 6)))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (* 1/2 (/ (pow im 6) (pow re 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (+ (* 1/16 (/ (pow im 18) (pow re 18))) (* 1/2 (/ (pow im 6) (pow re 6)))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (pow re 2)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow re 2) (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (- (pow im 4) (* 1/4 (pow im 4))) (pow re 4))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/4 (/ (* (pow im 2) (- (pow im 4) (* 1/4 (pow im 4)))) (pow re 6))) (* 1/2 (/ (- (pow im 4) (* 1/4 (pow im 4))) (pow re 4)))))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (pow re 4)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow re 4) (+ 1 (* -1 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow re 4) (- (+ 1 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))
#s(approx (- (pow im 4) (pow (* re im) 2)) #s(hole binary64 (* -1 (* (pow im 2) (pow re 2)))))
#s(approx (- (pow im 4) (pow (* re im) 2)) #s(hole binary64 (* (pow re 2) (- (/ (pow im 4) (pow re 2)) (pow im 2)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ -1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (pow re 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (* 1/2 (/ (pow im 6) (pow re 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (* 1/2 (/ (pow im 6) (pow re 6)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (+ (* 1/16 (/ (pow im 18) (pow re 18))) (* 1/2 (/ (pow im 6) (pow re 6))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#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 (neg im) #s(hole binary64 (* -1 im)))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log re) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#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 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (log re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 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 (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* 1/2 (/ (pow im 6) (pow re 3))) (pow re 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow im 6) (+ (* -1/8 (/ (pow im 6) (pow re 9))) (* 1/2 (/ 1 (pow re 3))))) (pow re 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow im 6) (+ (* (pow im 6) (- (* 1/16 (/ (pow im 6) (pow re 15))) (* 1/8 (/ 1 (pow re 9))))) (* 1/2 (/ 1 (pow re 3))))) (pow re 3))))
#s(approx (pow im 3) #s(hole binary64 (pow im 3)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* -1/2 (pow im 2)) (pow re 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 2))) 1/2)) (pow re 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* 3/16 (/ (pow im 2) (pow re 4))) (* 3/8 (/ 1 (pow re 2))))) 1/2)) (pow re 2))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow re 4))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* (pow im 2) (- (pow im 2) (pow re 2))) (pow re 4))))
#s(approx (- (pow im 4) (pow (* re im) 2)) #s(hole binary64 (* (pow im 2) (- (pow im 2) (pow re 2)))))
#s(approx (pow im 4) #s(hole binary64 (pow im 4)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#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 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#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 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow im 3) (+ 1 (* 1/2 (/ (pow re 6) (pow im 6)))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (* 1/2 (/ (pow re 6) (pow im 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (+ (* 1/16 (/ (pow re 18) (pow im 18))) (* 1/2 (/ (pow re 6) (pow im 6)))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow im 2) (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/2 (/ (- (pow re 4) (* 1/4 (pow re 4))) (pow im 4))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/4 (/ (* (pow re 2) (- (pow re 4) (* 1/4 (pow re 4)))) (pow im 6))) (* 1/2 (/ (- (pow re 4) (* 1/4 (pow re 4))) (pow im 4)))))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow im 4) (+ 1 (* -1 (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow im 4) (- (+ 1 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))
#s(approx (- (pow im 4) (pow (* re im) 2)) #s(hole binary64 (* (pow im 4) (+ 1 (* -1 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#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 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ -1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#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 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (pow im 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (* 1/2 (/ (pow re 6) (pow im 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (* 1/2 (/ (pow re 6) (pow im 6)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (+ (* 1/16 (/ (pow re 18) (pow im 18))) (* 1/2 (/ (pow re 6) (pow im 6))))))))))

Calls

6 calls:

Time	Variable		Point	Expression
10.0ms	re	@	inf	((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) re im (log 10) 10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (neg im) (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (log 1/10) 1/10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow re 3) 3 (pow im 3) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow re 4) 4 (- (pow im 4) (pow (* re im) 2)) (pow im 4) (pow (* re im) 2) (* re im) 2)
8.0ms	im	@	inf	((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) re im (log 10) 10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (neg im) (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (log 1/10) 1/10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow re 3) 3 (pow im 3) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow re 4) 4 (- (pow im 4) (pow (* re im) 2)) (pow im 4) (pow (* re im) 2) (* re im) 2)
6.0ms	re	@	0	((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) re im (log 10) 10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (neg im) (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (log 1/10) 1/10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow re 3) 3 (pow im 3) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow re 4) 4 (- (pow im 4) (pow (* re im) 2)) (pow im 4) (pow (* re im) 2) (* re im) 2)
6.0ms	im	@	-inf	((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) re im (log 10) 10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (neg im) (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (log 1/10) 1/10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow re 3) 3 (pow im 3) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow re 4) 4 (- (pow im 4) (pow (* re im) 2)) (pow im 4) (pow (* re im) 2) (* re im) 2)
5.0ms	re	@	-inf	((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) re im (log 10) 10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (neg im) (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (log 1/10) 1/10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow re 3) 3 (pow im 3) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow re 4) 4 (- (pow im 4) (pow (* re im) 2)) (pow im 4) (pow (* re im) 2) (* re im) 2)

rewrite211.0ms (7%)

Memory

40.0MiB live, 329.6MiB allocated; 35ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1008	10938
0	1049	8814
1	5517	8730
0	8498	8322

Stop Event

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

Counts

331 → 617

Calls

Call 1

Inputs
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
(log.f64 (hypot.f64 re im))
(hypot.f64 re im)
re
im
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
(log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))) (log.f64 #s(literal 10 binary64)))
(log.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
(neg.f64 im)
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (log.f64 (hypot.f64 im re)))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))))) (log.f64 #s(literal 10 binary64)))
(log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64)))))))
(/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))))
(hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))
(pow.f64 re #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 im #s(literal 3 binary64))
(sqrt.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64)))))
(+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))
(pow.f64 re #s(literal 4 binary64))
#s(literal 4 binary64)
(-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64)))
(pow.f64 im #s(literal 4 binary64))
(pow.f64 (*.f64 re im) #s(literal 2 binary64))
(*.f64 re im)
#s(literal 2 binary64)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#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 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log im) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#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 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (log im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 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 (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (pow im 3)))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* 1/2 (/ (pow re 6) (pow im 3))) (pow im 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow re 6) (+ (* -1/8 (/ (pow re 6) (pow im 9))) (* 1/2 (/ 1 (pow im 3))))) (pow im 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow re 6) (+ (* (pow re 6) (- (* 1/16 (/ (pow re 6) (pow im 15))) (* 1/8 (/ 1 (pow im 9))))) (* 1/2 (/ 1 (pow im 3))))) (pow im 3))))
#s(approx (pow re 3) #s(hole binary64 (pow re 3)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (pow im 2)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* -1/2 (pow re 2)) (pow im 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 2))) 1/2)) (pow im 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* 3/16 (/ (pow re 2) (pow im 4))) (* 3/8 (/ 1 (pow im 2))))) 1/2)) (pow im 2))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (pow im 4)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow im 4))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* (pow re 2) (- (pow re 2) (pow im 2))) (pow im 4))))
#s(approx (pow re 4) #s(hole binary64 (pow re 4)))
#s(approx (- (pow im 4) (pow (* re im) 2)) #s(hole binary64 (pow im 4)))
#s(approx (- (pow im 4) (pow (* re im) 2)) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow im 4))))
#s(approx (pow (* re im) 2) #s(hole binary64 (* (pow im 2) (pow re 2))))
#s(approx (* re im) #s(hole binary64 (* im re)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (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 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ 1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (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 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (pow re 3)))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow re 3) (+ 1 (* 1/2 (/ (pow im 6) (pow re 6)))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (* 1/2 (/ (pow im 6) (pow re 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (+ (* 1/16 (/ (pow im 18) (pow re 18))) (* 1/2 (/ (pow im 6) (pow re 6)))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (pow re 2)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow re 2) (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (- (pow im 4) (* 1/4 (pow im 4))) (pow re 4))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/4 (/ (* (pow im 2) (- (pow im 4) (* 1/4 (pow im 4)))) (pow re 6))) (* 1/2 (/ (- (pow im 4) (* 1/4 (pow im 4))) (pow re 4)))))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (pow re 4)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow re 4) (+ 1 (* -1 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow re 4) (- (+ 1 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))
#s(approx (- (pow im 4) (pow (* re im) 2)) #s(hole binary64 (* -1 (* (pow im 2) (pow re 2)))))
#s(approx (- (pow im 4) (pow (* re im) 2)) #s(hole binary64 (* (pow re 2) (- (/ (pow im 4) (pow re 2)) (pow im 2)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ -1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (pow re 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (* 1/2 (/ (pow im 6) (pow re 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (* 1/2 (/ (pow im 6) (pow re 6)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (+ (* 1/16 (/ (pow im 18) (pow re 18))) (* 1/2 (/ (pow im 6) (pow re 6))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#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 (neg im) #s(hole binary64 (* -1 im)))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log re) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#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 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (log re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 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 (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* 1/2 (/ (pow im 6) (pow re 3))) (pow re 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow im 6) (+ (* -1/8 (/ (pow im 6) (pow re 9))) (* 1/2 (/ 1 (pow re 3))))) (pow re 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow im 6) (+ (* (pow im 6) (- (* 1/16 (/ (pow im 6) (pow re 15))) (* 1/8 (/ 1 (pow re 9))))) (* 1/2 (/ 1 (pow re 3))))) (pow re 3))))
#s(approx (pow im 3) #s(hole binary64 (pow im 3)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* -1/2 (pow im 2)) (pow re 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 2))) 1/2)) (pow re 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* 3/16 (/ (pow im 2) (pow re 4))) (* 3/8 (/ 1 (pow re 2))))) 1/2)) (pow re 2))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow re 4))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* (pow im 2) (- (pow im 2) (pow re 2))) (pow re 4))))
#s(approx (- (pow im 4) (pow (* re im) 2)) #s(hole binary64 (* (pow im 2) (- (pow im 2) (pow re 2)))))
#s(approx (pow im 4) #s(hole binary64 (pow im 4)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#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 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#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 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow im 3) (+ 1 (* 1/2 (/ (pow re 6) (pow im 6)))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (* 1/2 (/ (pow re 6) (pow im 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (+ (* 1/16 (/ (pow re 18) (pow im 18))) (* 1/2 (/ (pow re 6) (pow im 6)))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow im 2) (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/2 (/ (- (pow re 4) (* 1/4 (pow re 4))) (pow im 4))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/4 (/ (* (pow re 2) (- (pow re 4) (* 1/4 (pow re 4)))) (pow im 6))) (* 1/2 (/ (- (pow re 4) (* 1/4 (pow re 4))) (pow im 4)))))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow im 4) (+ 1 (* -1 (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow im 4) (- (+ 1 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))
#s(approx (- (pow im 4) (pow (* re im) 2)) #s(hole binary64 (* (pow im 4) (+ 1 (* -1 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#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 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ -1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#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 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (pow im 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (* 1/2 (/ (pow re 6) (pow im 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (* 1/2 (/ (pow re 6) (pow im 6)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (+ (* 1/16 (/ (pow re 18) (pow im 18))) (* 1/2 (/ (pow re 6) (pow im 6))))))))))

Outputs
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 #s(literal 10 binary64)))
(neg.f64 (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 #s(literal 1/10 binary64))))
(.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (.f64 re re))))
(neg.f64 (neg.f64 (log.f64 (hypot.f64 im re))))
(-.f64 (log.f64 (neg.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))))) (log.f64 (neg.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
(-.f64 (log.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))) (log.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))))
(log.f64 (hypot.f64 im re))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(pow.f64 (hypot.f64 im re) #s(literal 1 binary64))
(/.f64 (neg.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))) (neg.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))))
(/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (pow.f64 (hypot.f64 im re) #s(literal -1 binary64)))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im)
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im re)
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re im)
(exp.f64 (.f64 (log.f64 (fma.f64 im im (.f64 re re))) #s(literal 1/2 binary64)))
re
im
(neg.f64 (log.f64 #s(literal 1/10 binary64)))
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)) (log.f64 #s(literal 10 binary64)))
(log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)
(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im)))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))) (log.f64 #s(literal 10 binary64)))
(log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))
(*.f64 #s(literal -1 binary64) im)
(*.f64 im #s(literal -1 binary64))
(neg.f64 im)
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 #s(literal 10 binary64)))
(neg.f64 (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 #s(literal 1/10 binary64))))
(neg.f64 (log.f64 (hypot.f64 im re)))
(-.f64 #s(literal 0 binary64) (log.f64 (hypot.f64 im re)))
(log.f64 (pow.f64 (hypot.f64 im re) #s(literal -1 binary64)))
(.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (.f64 re re))))
(neg.f64 (neg.f64 (log.f64 (hypot.f64 im re))))
(-.f64 (log.f64 (neg.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))))) (log.f64 (neg.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
(-.f64 (log.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))) (log.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))))
(log.f64 (hypot.f64 im re))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(pow.f64 (hypot.f64 im re) #s(literal 1 binary64))
(/.f64 (neg.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))) (neg.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))))
(/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (pow.f64 (hypot.f64 im re) #s(literal -1 binary64)))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im)
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im re)
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re im)
(exp.f64 (.f64 (log.f64 (fma.f64 im im (.f64 re re))) #s(literal 1/2 binary64)))
(neg.f64 (log.f64 #s(literal 10 binary64)))
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 #s(literal 10 binary64)))
(neg.f64 (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 #s(literal 1/10 binary64))))
(.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (.f64 re re))))
(neg.f64 (neg.f64 (log.f64 (hypot.f64 im re))))
(-.f64 (log.f64 (neg.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))))) (log.f64 (neg.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
(-.f64 (log.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))) (log.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))))
(log.f64 (hypot.f64 im re))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(pow.f64 (hypot.f64 im re) #s(literal 1 binary64))
(/.f64 (neg.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))) (neg.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))))
(/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (pow.f64 (hypot.f64 im re) #s(literal -1 binary64)))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im)
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im re)
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re im)
(exp.f64 (.f64 (log.f64 (fma.f64 im im (.f64 re re))) #s(literal 1/2 binary64)))
(pow.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal 1 binary64))
(pow.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/2 binary64)))
(sqrt.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 re) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (fabs.f64 re) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)) (fabs.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 im) #s(literal 3 binary64)) (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 im) #s(literal 3 binary64)) (pow.f64 (neg.f64 re) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 im) #s(literal 3 binary64)) (pow.f64 (fabs.f64 re) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 im) #s(literal 3 binary64)) (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 im) #s(literal 3 binary64)) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (fabs.f64 im) #s(literal 3 binary64)) (fabs.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (fabs.f64 im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (pow.f64 (neg.f64 re) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (pow.f64 (fabs.f64 re) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (fabs.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (fabs.f64 im) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 im) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)) (neg.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)) (fabs.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 3 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 3 binary64)) (pow.f64 (fabs.f64 im) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 3 binary64)) (pow.f64 (neg.f64 im) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 3 binary64)) (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 3 binary64)) (neg.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 3 binary64)) (fabs.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 3 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 3 binary64)) (pow.f64 (fabs.f64 im) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 3 binary64)) (pow.f64 (neg.f64 im) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 3 binary64)) (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 3 binary64)) (neg.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 3 binary64)) (fabs.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)) (pow.f64 (neg.f64 re) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)) (pow.f64 (fabs.f64 re) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)) (fabs.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)) (pow.f64 re #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (pow.f64 (fabs.f64 im) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (pow.f64 (neg.f64 im) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (neg.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (fabs.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64)))
(hypot.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (pow.f64 (neg.f64 re) #s(literal 3 binary64)))
(hypot.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (pow.f64 (fabs.f64 re) #s(literal 3 binary64)))
(hypot.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (fabs.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (pow.f64 re #s(literal 3 binary64)))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (pow.f64 (fabs.f64 im) #s(literal 3 binary64)))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (pow.f64 (neg.f64 im) #s(literal 3 binary64)))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (neg.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (fabs.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (pow.f64 im #s(literal 3 binary64)))
(hypot.f64 (fabs.f64 (pow.f64 im #s(literal 3 binary64))) (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (fabs.f64 (pow.f64 im #s(literal 3 binary64))) (pow.f64 (neg.f64 re) #s(literal 3 binary64)))
(hypot.f64 (fabs.f64 (pow.f64 im #s(literal 3 binary64))) (pow.f64 (fabs.f64 re) #s(literal 3 binary64)))
(hypot.f64 (fabs.f64 (pow.f64 im #s(literal 3 binary64))) (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 (pow.f64 im #s(literal 3 binary64))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (fabs.f64 (pow.f64 im #s(literal 3 binary64))) (fabs.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (fabs.f64 (pow.f64 im #s(literal 3 binary64))) (pow.f64 re #s(literal 3 binary64)))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 3 binary64))) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 3 binary64))) (pow.f64 (fabs.f64 im) #s(literal 3 binary64)))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 3 binary64))) (pow.f64 (neg.f64 im) #s(literal 3 binary64)))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 3 binary64))) (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 3 binary64))) (neg.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 3 binary64))) (fabs.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 3 binary64))) (pow.f64 im #s(literal 3 binary64)))
(hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (fabs.f64 im) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (neg.f64 im) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 3 binary64)) (neg.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (pow.f64 re #s(literal 3 binary64)) (fabs.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))
(hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 (neg.f64 re) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 (fabs.f64 re) #s(literal 3 binary64)))
(hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 3 binary64)) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (pow.f64 im #s(literal 3 binary64)) (fabs.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))
(exp.f64 (*.f64 (log.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 re #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3/2 binary64)))
(.f64 (.f64 re re) re)
(.f64 re (.f64 re re))
(pow.f64 (pow.f64 re #s(literal 3/2 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 3/2 binary64))
(pow.f64 re #s(literal 3 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal -3 binary64)))
(exp.f64 (*.f64 (log.f64 re) #s(literal 3 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 re) #s(literal 3 binary64))) (sinh.f64 (.f64 (log.f64 re) #s(literal 3 binary64))))
#s(literal 3 binary64)
(*.f64 (pow.f64 im #s(literal 3/2 binary64)) (pow.f64 im #s(literal 3/2 binary64)))
(.f64 (.f64 im im) im)
(.f64 im (.f64 im im))
(pow.f64 (pow.f64 im #s(literal 3/2 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 3/2 binary64))
(pow.f64 im #s(literal 3 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal -3 binary64)))
(exp.f64 (*.f64 (log.f64 im) #s(literal 3 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 im) #s(literal 3 binary64))) (sinh.f64 (.f64 (log.f64 im) #s(literal 3 binary64))))
(pow.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1 binary64))
(pow.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64)))
(sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))
(exp.f64 (.f64 (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 re #s(literal 8 binary64)) (pow.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 re #s(literal 8 binary64)) (-.f64 (pow.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64)))))))
(fma.f64 (.f64 re re) (.f64 re re) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))
(-.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))
(+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))
(.f64 (.f64 re re) (*.f64 re re))
(pow.f64 (*.f64 re re) #s(literal 2 binary64))
(pow.f64 re #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 re) #s(literal 4 binary64))) (sinh.f64 (.f64 (log.f64 re) #s(literal 4 binary64))))
#s(literal 4 binary64)
(/.f64 (-.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (.f64 im re) #s(literal 4 binary64))) (+.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (.f64 im re) #s(literal 6 binary64))) (+.f64 (pow.f64 im #s(literal 8 binary64)) (+.f64 (pow.f64 (.f64 im re) #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))))))
(-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))
(.f64 (.f64 im im) (*.f64 im im))
(pow.f64 (*.f64 im im) #s(literal 2 binary64))
(pow.f64 im #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 im) #s(literal 4 binary64))) (sinh.f64 (.f64 (log.f64 im) #s(literal 4 binary64))))
(.f64 (pow.f64 (.f64 im re) #s(literal 1 binary64)) (pow.f64 (*.f64 im re) #s(literal 1 binary64)))
(.f64 (.f64 im re) (*.f64 im re))
(.f64 (.f64 im im) (*.f64 re re))
(.f64 (.f64 re re) (*.f64 im im))
(pow.f64 (pow.f64 (*.f64 im re) #s(literal 1 binary64)) #s(literal 2 binary64))
(pow.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (*.f64 im re) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 im re)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (.f64 im re)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (.f64 im re)) #s(literal 2 binary64))))
(*.f64 im re)
(*.f64 re im)
#s(literal 2 binary64)
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 re re) (.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 im))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (pow.f64 im #s(literal 4 binary64)))) (*.f64 re re) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 re re) (.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 re re) (log.f64 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx re re)
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 re re)) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 im #s(literal 6 binary64))))) (.f64 re re) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (*.f64 im im)) (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64)))) (.f64 re re)) (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (.f64 (pow.f64 im #s(literal -4 binary64)) #s(literal 1/4 binary64))) (.f64 re re) (.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64)))) (.f64 re re)) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 im))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (pow.f64 im #s(literal 4 binary64)))) (*.f64 re re) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 re re) (.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 re re) (log.f64 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 re re) (.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 im))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (pow.f64 im #s(literal 4 binary64)))) (*.f64 re re) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 re re) (.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 re re) (log.f64 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow.f64 im #s(literal 3 binary64)))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/2 binary64) (pow.f64 im #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 9 binary64))) #s(literal -1/8 binary64) (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64))) (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 15 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -9 binary64)))) (pow.f64 re #s(literal 6 binary64)) (.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64))) (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (pow re 3) (pow.f64 re #s(literal 3 binary64)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (*.f64 im im))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 re re) (.f64 im im)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 3/8 binary64) (.f64 re re)) (.f64 im im)) #s(literal 1/2 binary64)) (.f64 re re) (*.f64 im im)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal 3/16 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 3/8 binary64) (pow.f64 im #s(literal -2 binary64)))) (.f64 re re)) #s(literal 1/2 binary64)) (.f64 re re) (.f64 im im)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow.f64 im #s(literal 4 binary64)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (fma.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (fma.f64 (-.f64 (.f64 re re) (.f64 im im)) (*.f64 re re) (pow.f64 im #s(literal 4 binary64))))
#s(approx (pow re 4) (pow.f64 re #s(literal 4 binary64)))
#s(approx (- (pow im 4) (pow (* re im) 2)) (pow.f64 im #s(literal 4 binary64)))
#s(approx (- (pow im 4) (pow (* re im) 2)) (fma.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64))))
#s(approx (pow (* re im) 2) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))
#s(approx (* re im) (*.f64 im re))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 (pow.f64 re #s(literal 1 binary64))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1/2 binary64) (log.f64 (pow.f64 re #s(literal 1 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (*.f64 re re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 im im) (.f64 re re)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 im im) (.f64 re re)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 im im) (.f64 re re)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/720 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (*.f64 re re)) (log.f64 (pow.f64 re #s(literal 1 binary64)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) (log.f64 (pow.f64 re #s(literal 1 binary64))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (*.f64 re re))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 (pow.f64 re #s(literal 1 binary64))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1/2 binary64) (log.f64 (pow.f64 re #s(literal 1 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (*.f64 re re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 (.f64 re re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 (pow.f64 re #s(literal 1 binary64))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1/2 binary64) (log.f64 (pow.f64 re #s(literal 1 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (*.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow.f64 re #s(literal 3 binary64)))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (*.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 re #s(literal 12 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64)))) #s(literal 1 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 re #s(literal 12 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 18 binary64)) (pow.f64 re #s(literal 18 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (*.f64 re re))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1/2 binary64) #s(literal 1 binary64)) (.f64 re re)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (.f64 (+.f64 (fma.f64 (/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (.f64 re re))) #s(literal 1 binary64)) (.f64 re re)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (.f64 (+.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (.f64 im im)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/4 binary64) (.f64 (/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow.f64 re #s(literal 4 binary64)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (.f64 (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal -1 binary64) #s(literal 1 binary64)) (pow.f64 re #s(literal 4 binary64))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (.f64 (-.f64 (+.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1 binary64)) (/.f64 (.f64 im im) (*.f64 re re))) (pow.f64 re #s(literal 4 binary64))))
#s(approx (- (pow im 4) (pow (* re im) 2)) (neg.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64))))
#s(approx (- (pow im 4) (pow (* re im) 2)) (.f64 (-.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (.f64 im im)) (.f64 re re)))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (*.f64 re re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re)))) #s(literal 1 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 im im) (.f64 re re)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 im im) (.f64 re re)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 im im) (.f64 re re)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/720 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (log.f64 (/.f64 #s(literal -1 binary64) re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1/2 binary64) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal 1 binary64)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (*.f64 re re))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (*.f64 re re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re)))) #s(literal 1 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 (.f64 re re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (.f64 re re))) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (*.f64 re re)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (*.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 re #s(literal 12 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 re #s(literal 12 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 18 binary64)) (pow.f64 re #s(literal 18 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 im im) (.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 re))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1/2 binary64) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (pow.f64 re #s(literal 4 binary64)))) (*.f64 im im) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 im im) (.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 im im) (log.f64 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx im im)
#s(approx (neg im) (neg.f64 im))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 im im) (.f64 re re)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 im im)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64))))) (.f64 im im) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (*.f64 re re)) (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -2 binary64)))) (.f64 im im)) (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (.f64 (fma.f64 (fma.f64 (pow.f64 re #s(literal -4 binary64)) #s(literal 1/4 binary64) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 im im)) (pow.f64 re #s(literal 6 binary64)))) (.f64 im im) (.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -2 binary64)))) (.f64 im im)) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 re))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1/2 binary64) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (pow.f64 re #s(literal 4 binary64)))) (*.f64 im im) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 im im) (.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 im im) (log.f64 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 im im) (.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 re))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1/2 binary64) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (pow.f64 re #s(literal 4 binary64)))) (*.f64 im im) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 im im) (.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 im im) (log.f64 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 3 binary64))) #s(literal 1/2 binary64) (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 9 binary64))) #s(literal -1/8 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64))) (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 15 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -9 binary64)))) (pow.f64 im #s(literal 6 binary64)) (.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64))) (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (pow im 3) (pow.f64 im #s(literal 3 binary64)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 im im) (.f64 re re)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 3/8 binary64) (.f64 im im)) (.f64 re re)) #s(literal 1/2 binary64)) (.f64 im im) (*.f64 re re)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (fma.f64 (-.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 3/8 binary64) (/.f64 (.f64 #s(literal 3/16 binary64) (.f64 im im)) (pow.f64 re #s(literal 4 binary64)))) (.f64 im im)) #s(literal 1/2 binary64)) (.f64 im im) (.f64 re re)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (fma.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (fma.f64 (-.f64 (.f64 im im) (.f64 re re)) (*.f64 im im) (pow.f64 re #s(literal 4 binary64))))
#s(approx (- (pow im 4) (pow (* re im) 2)) (.f64 (-.f64 (.f64 im im) (.f64 re re)) (.f64 im im)))
#s(approx (pow im 4) (pow.f64 im #s(literal 4 binary64)))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (neg.f64 (log.f64 im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (log.f64 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 im #s(literal 6 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/720 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (*.f64 im im)) (neg.f64 (neg.f64 (log.f64 im)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (log.f64 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (-.f64 (/.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64))) (pow.f64 im #s(literal 6 binary64))) (neg.f64 (neg.f64 (log.f64 im)))) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (neg.f64 (log.f64 im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (log.f64 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (neg.f64 (log.f64 im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (log.f64 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 im #s(literal 12 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64)))) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 im #s(literal 12 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 18 binary64)) (pow.f64 im #s(literal 18 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1 binary64)) (.f64 im im)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (.f64 (+.f64 (fma.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64)) (.f64 im im)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 (.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64))) (.f64 re re)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/4 binary64) (.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (.f64 (-.f64 (+.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 1 binary64)) (/.f64 (.f64 re re) (*.f64 im im))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (- (pow im 4) (pow (* re im) 2)) (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))) #s(literal 1 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 im #s(literal 6 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/720 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (log.f64 (/.f64 #s(literal -1 binary64) im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 1 binary64)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))) #s(literal 1 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (neg.f64 (pow.f64 im #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (*.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 im #s(literal 12 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 im #s(literal 12 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 18 binary64)) (pow.f64 im #s(literal 18 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1 binary64))))

eval43.0ms (1.4%)

Memory: 3.8MiB live, 95.5MiB allocated; 7ms collecting garbage
Compiler: Compiled 15 958 to 2 035 computations (87.2% saved)

prune53.0ms (1.7%)

Memory

-24.7MiB live, 32.6MiB allocated; 16ms collecting garbage

Pruning

14 alts after pruning (10 fresh and 4 done)

	Pruned	Kept	Total
New	400	9	409
Fresh	2	1	3
Picked	1	4	5
Done	0	0	0
Total	403	14	417

Accuracy

99.7%

Counts

417 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	99.0%	(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
▶	0.0%	(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im)))) (log.f64 #s(literal 1/10 binary64)))
▶	98.7%	(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im))) (log.f64 #s(literal 1/10 binary64)))
✓	99.1%	(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
	25.0%	(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (+.f64 (exp.f64 (.f64 (log.f64 re) #s(literal 4 binary64))) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 re im) #s(literal 2 binary64))))))) (log.f64 #s(literal 10 binary64)))
	24.9%	(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow.f64 im #s(literal 4 binary64)))))) (log.f64 #s(literal 10 binary64)))
	24.9%	(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (exp.f64 (.f64 (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/2 binary64))))) (log.f64 #s(literal 10 binary64)))
▶	0.0%	(/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))) (log.f64 #s(literal 10 binary64)))
▶	10.5%	(/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)) (log.f64 #s(literal 10 binary64)))
✓	0.0%	(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))) (log.f64 #s(literal 10 binary64)))
✓	98.8%	(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
	10.5%	(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 re))) (log.f64 #s(literal 1/10 binary64)))
	0.0%	(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (log.f64 (/.f64 #s(literal -1 binary64) re))) (log.f64 #s(literal 1/10 binary64)))
▶	3.0%	#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))

Compiler

Compiled 652 to 472 computations (27.6% saved)

series152.0ms (5%)

Memory

1.4MiB live, 281.6MiB allocated; 33ms collecting garbage

Counts

30 → 163

Calls

Call 1

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

Outputs
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log im) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (* -1 (log im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (log im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 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 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx re #s(hole binary64 re))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow im 2) (log 10))) (/ (* (pow re 2) (log re)) (log 10))) (pow re 2))))
#s(approx (* (/ im re) (/ im re)) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (/ (log re) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (log re) #s(hole binary64 (log re)))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ 1 re))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log re) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (log re) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ -1 re))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (/ (log re) (log 10)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 re)))) (log 10))))
#s(approx (log re) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 re))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log re) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (* -1 (log re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (log re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (log re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 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 im #s(hole binary64 im))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* -1 (log (/ 1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (* (pow im 2) (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (log re) (* (pow im 2) (log 10)))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ -1 im))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* -1 (log (/ -1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))

Calls

6 calls:

Time	Variable		Point	Expression
55.0ms	re	@	0	((/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im (log 1/10) 1/10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re (log 10) 10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg re) (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg im) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/ 1/2 (log 10)) 1/2 (* (/ im re) (/ im re)) (/ im re) (/ (log re) (log 10)) (log re))
27.0ms	re	@	-inf	((/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im (log 1/10) 1/10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re (log 10) 10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg re) (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg im) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/ 1/2 (log 10)) 1/2 (* (/ im re) (/ im re)) (/ im re) (/ (log re) (log 10)) (log re))
26.0ms	im	@	0	((/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im (log 1/10) 1/10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re (log 10) 10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg re) (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg im) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/ 1/2 (log 10)) 1/2 (* (/ im re) (/ im re)) (/ im re) (/ (log re) (log 10)) (log re))
20.0ms	re	@	inf	((/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im (log 1/10) 1/10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re (log 10) 10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg re) (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg im) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/ 1/2 (log 10)) 1/2 (* (/ im re) (/ im re)) (/ im re) (/ (log re) (log 10)) (log re))
10.0ms	im	@	-inf	((/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im (log 1/10) 1/10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re (log 10) 10 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg re) (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg im) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/ 1/2 (log 10)) 1/2 (* (/ im re) (/ im re)) (/ im re) (/ (log re) (log 10)) (log re))

rewrite240.0ms (7.9%)

Memory

16.3MiB live, 300.7MiB allocated; 39ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	681	10629
0	714	6790
1	3923	6657
0	9863	5545

Stop Event

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

Counts

193 → 247

Calls

Call 1

Inputs
(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)))
(log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)
im
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)) (log.f64 #s(literal 10 binary64)))
(log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)
re
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
(/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))) (log.f64 #s(literal 10 binary64)))
(log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))
(neg.f64 re)
(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im)))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))))
(log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))
(neg.f64 im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
(fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
(/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))
#s(literal 1/2 binary64)
(*.f64 (/.f64 im re) (/.f64 im re))
(/.f64 im re)
(/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))
(log.f64 re)
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log im) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (* -1 (log im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (log im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 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 (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx re #s(hole binary64 re))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow im 2) (log 10))) (/ (* (pow re 2) (log re)) (log 10))) (pow re 2))))
#s(approx (* (/ im re) (/ im re)) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (/ (log re) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (log re) #s(hole binary64 (log re)))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ 1 re))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log re) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (log re) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ -1 re))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (/ (log re) (log 10)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 re)))) (log 10))))
#s(approx (log re) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 re))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log re) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (* -1 (log re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (log re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (log re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 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 im #s(hole binary64 im))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* -1 (log (/ 1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (* (pow im 2) (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (log re) (* (pow im 2) (log 10)))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ -1 im))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* -1 (log (/ -1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))

Outputs
(/.f64 (neg.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)))) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)) (log.f64 #s(literal 1/10 binary64))))
(neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)))
(-.f64 #s(literal 0 binary64) (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)))
(log.f64 (pow.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im) #s(literal -1 binary64)))
(log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)
im
(neg.f64 (log.f64 #s(literal 10 binary64)))
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)) (log.f64 #s(literal 10 binary64)))
(log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)
re
(neg.f64 (log.f64 #s(literal 1/10 binary64)))
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re)))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))) (log.f64 #s(literal 10 binary64)))
(log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))
(*.f64 #s(literal -1 binary64) re)
(*.f64 re #s(literal -1 binary64))
(neg.f64 re)
(/.f64 (neg.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))))) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im)))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))) (log.f64 #s(literal 1/10 binary64))))
(neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))))
(-.f64 #s(literal 0 binary64) (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))))
(log.f64 (pow.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im)) #s(literal -1 binary64)))
(log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))
(*.f64 #s(literal -1 binary64) im)
(*.f64 im #s(literal -1 binary64))
(neg.f64 im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
(/.f64 (fma.f64 (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (log.f64 #s(literal 1/10 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (neg.f64 (log.f64 re)))) (*.f64 (log.f64 #s(literal 10 binary64)) (log.f64 #s(literal 1/10 binary64))))
(/.f64 (fma.f64 (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (log.f64 re))) (*.f64 (log.f64 #s(literal 10 binary64)) (log.f64 #s(literal 10 binary64))))
(/.f64 (fma.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 10 binary64)) (.f64 (log.f64 #s(literal 1/10 binary64)) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))
(/.f64 (fma.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (log.f64 #s(literal 10 binary64)) (log.f64 #s(literal 10 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (log.f64 re)) (log.f64 #s(literal 10 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))))
(fma.f64 (*.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (/.f64 im re)) (/.f64 im re) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
(fma.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))))
(fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))))
(fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
(fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
(+.f64 (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
(+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))))
(/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))
(/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))
#s(literal 1/2 binary64)
(*.f64 (neg.f64 (neg.f64 (/.f64 im re))) (neg.f64 (neg.f64 (/.f64 im re))))
(*.f64 (neg.f64 (fabs.f64 (/.f64 im re))) (neg.f64 (fabs.f64 (/.f64 im re))))
(*.f64 (fabs.f64 (fabs.f64 (/.f64 im re))) (fabs.f64 (fabs.f64 (/.f64 im re))))
(*.f64 (pow.f64 (/.f64 im re) #s(literal 1 binary64)) (pow.f64 (/.f64 im re) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 im re) #s(literal 1 binary64)) (/.f64 im re))
(*.f64 (neg.f64 (/.f64 im re)) (neg.f64 (/.f64 im re)))
(*.f64 (fabs.f64 (/.f64 im re)) (fabs.f64 (/.f64 im re)))
(*.f64 (/.f64 im re) (/.f64 im re))
(pow.f64 (neg.f64 (/.f64 im re)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 (/.f64 im re)) #s(literal 2 binary64))
(pow.f64 (/.f64 im re) #s(literal 2 binary64))
(/.f64 (*.f64 im (/.f64 im re)) re)
(/.f64 (*.f64 (/.f64 im re) im) re)
(/.f64 (neg.f64 (.f64 im im)) (neg.f64 (.f64 re re)))
(/.f64 (.f64 im im) (.f64 re re))
(fabs.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)))
(exp.f64 (-.f64 (.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 (log.f64 re) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 im re)) #s(literal 2 binary64)))
(/.f64 (neg.f64 im) (neg.f64 re))
(/.f64 im re)
(*.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))))
(/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))
(neg.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))))
(*.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))
(neg.f64 (neg.f64 (log.f64 re)))
(log.f64 re)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 re re)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64))))) (.f64 re re) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (neg.f64 (log.f64 im)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (*.f64 im im)) (log.f64 im)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64)))) (.f64 re re)) (log.f64 im)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (fma.f64 (fma.f64 (pow.f64 im #s(literal -4 binary64)) #s(literal 1/4 binary64) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 re re)) (pow.f64 im #s(literal 6 binary64)))) (.f64 re re) (.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64)))) (.f64 re re)) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 im))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 re re) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 re re) (.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 re re) (log.f64 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64))))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 re re) (.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx re re)
#s(approx (neg re) (neg.f64 re))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64))))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 re re) (.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (fma.f64 (/.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 (log.f64 re) (.f64 re re)) (log.f64 #s(literal 10 binary64)))) (.f64 re re)))
#s(approx (* (/ im re) (/ im re)) (pow.f64 (/.f64 im re) #s(literal 2 binary64)))
#s(approx (/ im re) (/.f64 im re))
#s(approx (/ (log re) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (log re) (log.f64 re))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/24 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/24 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/720 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (neg.f64 (log.f64 re)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 im re) #s(literal 2 binary64))) (log.f64 re)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/24 binary64)) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (log.f64 re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/720 binary64)) (+.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (log.f64 re))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 re))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (+.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (+.f64 (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 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 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (log.f64 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (*.f64 (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) re))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/24 binary64) (.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/24 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log re) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (log re) (log.f64 re))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/24 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/24 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/720 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log.f64 (/.f64 #s(literal -1 binary64) re)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal 1 binary64)))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/24 binary64)) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/720 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 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 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (*.f64 (neg.f64 re) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/24 binary64) (.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/24 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (+.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log re) (log 10)) (/.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))) (log.f64 #s(literal 10 binary64))))
#s(approx (log re) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 im im)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64))))) (.f64 im im) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (neg.f64 (log.f64 re)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 im re) #s(literal 2 binary64))) (log.f64 re)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -2 binary64)))) (.f64 im im)) (log.f64 re)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (fma.f64 (fma.f64 (pow.f64 re #s(literal -4 binary64)) #s(literal 1/4 binary64) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 im im)) (pow.f64 re #s(literal 6 binary64)))) (.f64 im im) (.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -2 binary64)))) (.f64 im im)) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 re))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (pow.f64 re #s(literal 4 binary64)))) (*.f64 im im) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 im im) (.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 im im) (log.f64 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx im im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64))))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 im im) (.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (neg im) (neg.f64 im))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64))))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 im im) (.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/24 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/24 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 30 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/720 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (neg.f64 (log.f64 im)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (*.f64 im im)) (log.f64 im)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/24 binary64)) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (log.f64 im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 30 binary64)))) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/720 binary64)) (+.f64 (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im))) (log.f64 im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 im))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (+.f64 (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (+.f64 (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 30 binary64)))) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))) (log.f64 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re))) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 30 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))))) (.f64 im im)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/24 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/24 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 30 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/720 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log.f64 (/.f64 #s(literal -1 binary64) im)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal -1/2 binary64) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 1 binary64)))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/24 binary64)) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 30 binary64)))) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/720 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 30 binary64)))) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re))) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))) #s(literal 1 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 30 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))

eval40.0ms (1.3%)

Memory: -8.2MiB live, 38.2MiB allocated; 2ms collecting garbage
Compiler: Compiled 9 450 to 918 computations (90.3% saved)

prune18.0ms (0.6%)

Memory

-20.9MiB live, 26.6MiB allocated; 2ms collecting garbage

Pruning

16 alts after pruning (8 fresh and 8 done)

	Pruned	Kept	Total
New	182	6	188
Fresh	3	2	5
Picked	1	4	5
Done	0	4	4
Total	186	16	202

Accuracy

99.8%

Counts

202 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	99.0%	(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
	0.0%	(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re)))) (log.f64 #s(literal 1/10 binary64)))
✓	0.0%	(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im)))) (log.f64 #s(literal 1/10 binary64)))
▶	10.5%	(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re))) (log.f64 #s(literal 1/10 binary64)))
✓	98.7%	(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im))) (log.f64 #s(literal 1/10 binary64)))
✓	99.1%	(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
▶	24.9%	(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow.f64 im #s(literal 4 binary64)))))) (log.f64 #s(literal 10 binary64)))
▶	24.9%	(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (exp.f64 (.f64 (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/2 binary64))))) (log.f64 #s(literal 10 binary64)))
✓	0.0%	(/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))) (log.f64 #s(literal 10 binary64)))
✓	10.5%	(/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)) (log.f64 #s(literal 10 binary64)))
✓	0.0%	(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))) (log.f64 #s(literal 10 binary64)))
✓	98.8%	(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
▶	3.0%	#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
	3.0%	#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (log.f64 #s(literal 1/10 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (neg.f64 (log.f64 re)))) (*.f64 (log.f64 #s(literal 10 binary64)) (log.f64 #s(literal 1/10 binary64)))))
▶	2.5%	#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (fma.f64 (/.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 (log.f64 re) (.f64 re re)) (log.f64 #s(literal 10 binary64)))) (.f64 re re))))
	2.5%	#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))))) (.f64 im im))))

Compiler

Compiled 806 to 552 computations (31.5% saved)

series169.0ms (5.6%)

Memory

10.4MiB live, 253.6MiB allocated; 26ms collecting garbage

Counts

50 → 396

Calls

Call 1

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

Outputs
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (log im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 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 (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (pow im 3)))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* 1/2 (/ (pow re 6) (pow im 3))) (pow im 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow re 6) (+ (* -1/8 (/ (pow re 6) (pow im 9))) (* 1/2 (/ 1 (pow im 3))))) (pow im 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow re 6) (+ (* (pow re 6) (- (* 1/16 (/ (pow re 6) (pow im 15))) (* 1/8 (/ 1 (pow im 9))))) (* 1/2 (/ 1 (pow im 3))))) (pow im 3))))
#s(approx (pow re 3) #s(hole binary64 (pow re 3)))
#s(approx re #s(hole binary64 re))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (pow im 2)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* -1/2 (pow re 2)) (pow im 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 2))) 1/2)) (pow im 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* 3/16 (/ (pow re 2) (pow im 4))) (* 3/8 (/ 1 (pow im 2))))) 1/2)) (pow im 2))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (pow im 4)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow im 4))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* (pow re 2) (- (pow re 2) (pow im 2))) (pow im 4))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log im) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (* -1 (log im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow im 2) (log 10))) (/ (* (pow re 2) (log re)) (log 10))) (pow re 2))))
#s(approx (pow (/ im re) 2) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (/ (log re) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (log re) #s(hole binary64 (log re)))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow im 2) (log 10))) (/ (* (pow re 2) (log re)) (log 10))) (pow re 2))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (/ (+ (* 1/2 (/ (pow im 2) (log 10))) (/ (* (pow re 2) (log re)) (log 10))) (pow re 2))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (* 1/2 (/ (pow im 2) (log 10)))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (log 10))) (/ (* (pow re 2) (log re)) (log 10)))))
#s(approx (/ (* (log re) (* re re)) (log 10)) #s(hole binary64 (/ (* (pow re 2) (log re)) (log 10))))
#s(approx (* (log re) (* re re)) #s(hole binary64 (* (pow re 2) (log re))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (log im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 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 (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (pow im 2)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (+ (* -1/2 (pow re 2)) (pow im 2))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 2))) 1/2)) (pow im 2))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* 3/16 (/ (pow re 2) (pow im 4))) (* 3/8 (/ 1 (pow im 2))))) 1/2)) (pow im 2))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (* 1/2 (log (pow im 4)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/2 (log (pow im 4))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* 1/2 (log (pow im 4))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* 1/2 (log (pow im 4))) (* (pow re 2) (- (* (pow re 2) (+ (* 1/3 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (log (pow im 4))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (log (pow im 4)) (* -1 (/ (pow re 2) (pow im 2))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (log (pow im 4)) (* (pow re 2) (- (* 1/2 (/ (pow re 2) (pow im 4))) (/ 1 (pow im 2)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (log (pow im 4)) (* (pow re 2) (- (* (pow re 2) (+ (* 2/3 (/ (pow re 2) (pow im 6))) (* 1/2 (/ 1 (pow im 4))))) (/ 1 (pow im 2)))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (pow im 4)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow im 4))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (+ (* (pow re 2) (- (pow re 2) (pow im 2))) (pow im 4))))
#s(approx (- (pow im 4) (pow (* im re) 2)) #s(hole binary64 (pow im 4)))
#s(approx (- (pow im 4) (pow (* im re) 2)) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow im 4))))
#s(approx (pow (* im re) 2) #s(hole binary64 (* (pow im 2) (pow re 2))))
#s(approx (* im re) #s(hole binary64 (* im re)))
#s(approx (pow re 4) #s(hole binary64 (pow re 4)))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (pow re 3)))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow re 3) (+ 1 (* 1/2 (/ (pow im 6) (pow re 6)))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (* 1/2 (/ (pow im 6) (pow re 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (+ (* 1/16 (/ (pow im 18) (pow re 18))) (* 1/2 (/ (pow im 6) (pow re 6)))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (pow re 2)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow re 2) (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (- (pow im 4) (* 1/4 (pow im 4))) (pow re 4))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/4 (/ (* (pow im 2) (- (pow im 4) (* 1/4 (pow im 4)))) (pow re 6))) (* 1/2 (/ (- (pow im 4) (* 1/4 (pow im 4))) (pow re 4)))))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (pow re 4)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow re 4) (+ 1 (* -1 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow re 4) (- (+ 1 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ 1 re))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log re) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (log re) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (* -1 (/ (* (pow re 2) (log (/ 1 re))) (log 10)))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (* (log re) (* re re)) (log 10)) #s(hole binary64 (* -1 (/ (* (pow re 2) (log (/ 1 re))) (log 10)))))
#s(approx (* (log re) (* re re)) #s(hole binary64 (* -1 (* (pow re 2) (log (/ 1 re))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (pow re 2)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (* (pow re 2) (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (- (pow im 4) (* 1/4 (pow im 4))) (pow re 4))))))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/4 (/ (* (pow im 2) (- (pow im 4) (* 1/4 (pow im 4)))) (pow re 6))) (* 1/2 (/ (- (pow im 4) (* 1/4 (pow im 4))) (pow re 4)))))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (* -2 (log (/ 1 re)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ 1 re))) (* -1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ 1 re))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/48 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4)))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ 1 re))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/1440 (/ (+ (* -240 (pow im 6)) (* 720 (pow im 6))) (pow re 6))) (* 1/48 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4))))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (* -4 (log (/ 1 re)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ 1 re))) (* -1 (/ (pow im 2) (pow re 2))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ 1 re))) (+ (* -1 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ 1 re))) (+ (* -1 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -240 (pow im 6)) (* 720 (pow im 6))) (pow re 6))) (* 1/24 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4))))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (pow re 4)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (* (pow re 4) (+ 1 (* -1 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (* (pow re 4) (- (+ 1 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))
#s(approx (- (pow im 4) (pow (* im re) 2)) #s(hole binary64 (* -1 (* (pow im 2) (pow re 2)))))
#s(approx (- (pow im 4) (pow (* im re) 2)) #s(hole binary64 (* (pow re 2) (- (/ (pow im 4) (pow re 2)) (pow im 2)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (pow re 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (* 1/2 (/ (pow im 6) (pow re 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (* 1/2 (/ (pow im 6) (pow re 6)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (+ (* 1/16 (/ (pow im 18) (pow re 18))) (* 1/2 (/ (pow im 6) (pow re 6))))))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ -1 re))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (/ (log re) (log 10)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 re)))) (log 10))))
#s(approx (log re) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 re))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (log (/ -1 re)) (log 10))) (/ (log -1) (log 10))))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (log 10)))))))
#s(approx (/ (* (log re) (* re re)) (log 10)) #s(hole binary64 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 re))))) (log 10))))
#s(approx (* (log re) (* re re)) #s(hole binary64 (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 re)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (* -2 (log (/ -1 re)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ -1 re))) (* -1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ -1 re))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/48 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4)))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ -1 re))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/1440 (/ (+ (* -240 (pow im 6)) (* 720 (pow im 6))) (pow re 6))) (* 1/48 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4))))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (* -4 (log (/ -1 re)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ -1 re))) (* -1 (/ (pow im 2) (pow re 2))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ -1 re))) (+ (* -1 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ -1 re))) (+ (* -1 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -240 (pow im 6)) (* 720 (pow im 6))) (pow re 6))) (* 1/24 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (log re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 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 (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* 1/2 (/ (pow im 6) (pow re 3))) (pow re 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow im 6) (+ (* -1/8 (/ (pow im 6) (pow re 9))) (* 1/2 (/ 1 (pow re 3))))) (pow re 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow im 6) (+ (* (pow im 6) (- (* 1/16 (/ (pow im 6) (pow re 15))) (* 1/8 (/ 1 (pow re 9))))) (* 1/2 (/ 1 (pow re 3))))) (pow re 3))))
#s(approx (pow im 3) #s(hole binary64 (pow im 3)))
#s(approx im #s(hole binary64 im))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* -1/2 (pow im 2)) (pow re 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 2))) 1/2)) (pow re 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* 3/16 (/ (pow im 2) (pow re 4))) (* 3/8 (/ 1 (pow re 2))))) 1/2)) (pow re 2))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow re 4))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* (pow im 2) (- (pow im 2) (pow re 2))) (pow re 4))))
#s(approx (pow im 4) #s(hole binary64 (pow im 4)))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log re) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (* -1 (log re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (log re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (/ (* (pow re 2) (log re)) (log 10))))
#s(approx (/ (* im im) (log 10)) #s(hole binary64 (/ (pow im 2) (log 10))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (log re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 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 (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (+ (* -1/2 (pow im 2)) (pow re 2))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 2))) 1/2)) (pow re 2))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* 3/16 (/ (pow im 2) (pow re 4))) (* 3/8 (/ 1 (pow re 2))))) 1/2)) (pow re 2))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (* 1/2 (log (pow re 4)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/2 (log (pow re 4))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* 1/2 (log (pow re 4))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* 1/2 (log (pow re 4))) (* (pow im 2) (- (* (pow im 2) (+ (* 1/3 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (log (pow re 4))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (log (pow re 4)) (* -1 (/ (pow im 2) (pow re 2))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (log (pow re 4)) (* (pow im 2) (- (* 1/2 (/ (pow im 2) (pow re 4))) (/ 1 (pow re 2)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (log (pow re 4)) (* (pow im 2) (- (* (pow im 2) (+ (* 2/3 (/ (pow im 2) (pow re 6))) (* 1/2 (/ 1 (pow re 4))))) (/ 1 (pow re 2)))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow re 4))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (+ (* (pow im 2) (- (pow im 2) (pow re 2))) (pow re 4))))
#s(approx (- (pow im 4) (pow (* im re) 2)) #s(hole binary64 (* (pow im 2) (- (pow im 2) (pow re 2)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow im 3) (+ 1 (* 1/2 (/ (pow re 6) (pow im 6)))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (* 1/2 (/ (pow re 6) (pow im 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (+ (* 1/16 (/ (pow re 18) (pow im 18))) (* 1/2 (/ (pow re 6) (pow im 6)))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow im 2) (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/2 (/ (- (pow re 4) (* 1/4 (pow re 4))) (pow im 4))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/4 (/ (* (pow re 2) (- (pow re 4) (* 1/4 (pow re 4)))) (pow im 6))) (* 1/2 (/ (- (pow re 4) (* 1/4 (pow re 4))) (pow im 4)))))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow im 4) (+ 1 (* -1 (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow im 4) (- (+ 1 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* -1 (log (/ 1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (* (pow im 2) (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (log re) (* (pow im 2) (log 10)))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (* (pow im 2) (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (log re) (* (pow im 2) (log 10)))))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (* (pow im 2) (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (log re) (* (pow im 2) (log 10)))))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (* (pow im 2) (+ (* 1/2 (/ 1 (log 10))) (/ (* (pow re 2) (log re)) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/2 (/ (- (pow re 4) (* 1/4 (pow re 4))) (pow im 4))))))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/4 (/ (* (pow re 2) (- (pow re 4) (* 1/4 (pow re 4)))) (pow im 6))) (* 1/2 (/ (- (pow re 4) (* 1/4 (pow re 4))) (pow im 4)))))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (* -2 (log (/ 1 im)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ 1 im))) (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ 1 im))) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/48 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4)))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ 1 im))) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/1440 (/ (+ (* -240 (pow re 6)) (* 720 (pow re 6))) (pow im 6))) (* 1/48 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4))))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (* -4 (log (/ 1 im)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ 1 im))) (* -1 (/ (pow re 2) (pow im 2))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ 1 im))) (+ (* -1 (/ (pow re 2) (pow im 2))) (* 1/24 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ 1 im))) (+ (* -1 (/ (pow re 2) (pow im 2))) (+ (* 1/720 (/ (+ (* -240 (pow re 6)) (* 720 (pow re 6))) (pow im 6))) (* 1/24 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4))))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (* (pow im 4) (+ 1 (* -1 (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (* (pow im 4) (- (+ 1 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))
#s(approx (- (pow im 4) (pow (* im re) 2)) #s(hole binary64 (* (pow im 4) (+ 1 (* -1 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (pow im 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (* 1/2 (/ (pow re 6) (pow im 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (* 1/2 (/ (pow re 6) (pow im 6)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (+ (* 1/16 (/ (pow re 18) (pow im 18))) (* 1/2 (/ (pow re 6) (pow im 6))))))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ -1 im))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* -1 (log (/ -1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (* -2 (log (/ -1 im)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ -1 im))) (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ -1 im))) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/48 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4)))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ -1 im))) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/1440 (/ (+ (* -240 (pow re 6)) (* 720 (pow re 6))) (pow im 6))) (* 1/48 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4))))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (* -4 (log (/ -1 im)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ -1 im))) (* -1 (/ (pow re 2) (pow im 2))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ -1 im))) (+ (* -1 (/ (pow re 2) (pow im 2))) (* 1/24 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ -1 im))) (+ (* -1 (/ (pow re 2) (pow im 2))) (+ (* 1/720 (/ (+ (* -240 (pow re 6)) (* 720 (pow re 6))) (pow im 6))) (* 1/24 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4))))))))

Calls

6 calls:

Time	Variable		Point	Expression
42.0ms	re	@	inf	((/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow re 3) re 3 (pow im 3) im (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow im 4) 4 (log 10) 10 (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (log 1/10) 1/10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) (pow (/ im re) 2) (/ im re) 2 (/ 1/2 (log 10)) 1/2 (/ (log re) (log 10)) (log re) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (/ (* im im) (log 10)) (* im im) (/ (* (log re) (* re re)) (log 10)) (* (log re) (* re re)) (* re re) (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (- (pow im 4) (pow (* im re) 2)) (pow (* im re) 2) (* im re) (pow re 4))
32.0ms	re	@	-inf	((/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow re 3) re 3 (pow im 3) im (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow im 4) 4 (log 10) 10 (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (log 1/10) 1/10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) (pow (/ im re) 2) (/ im re) 2 (/ 1/2 (log 10)) 1/2 (/ (log re) (log 10)) (log re) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (/ (* im im) (log 10)) (* im im) (/ (* (log re) (* re re)) (log 10)) (* (log re) (* re re)) (* re re) (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (- (pow im 4) (pow (* im re) 2)) (pow (* im re) 2) (* im re) (pow re 4))
22.0ms	im	@	0	((/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow re 3) re 3 (pow im 3) im (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow im 4) 4 (log 10) 10 (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (log 1/10) 1/10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) (pow (/ im re) 2) (/ im re) 2 (/ 1/2 (log 10)) 1/2 (/ (log re) (log 10)) (log re) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (/ (* im im) (log 10)) (* im im) (/ (* (log re) (* re re)) (log 10)) (* (log re) (* re re)) (* re re) (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (- (pow im 4) (pow (* im re) 2)) (pow (* im re) 2) (* im re) (pow re 4))
19.0ms	re	@	0	((/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow re 3) re 3 (pow im 3) im (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow im 4) 4 (log 10) 10 (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (log 1/10) 1/10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) (pow (/ im re) 2) (/ im re) 2 (/ 1/2 (log 10)) 1/2 (/ (log re) (log 10)) (log re) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (/ (* im im) (log 10)) (* im im) (/ (* (log re) (* re re)) (log 10)) (* (log re) (* re re)) (* re re) (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (- (pow im 4) (pow (* im re) 2)) (pow (* im re) 2) (* im re) (pow re 4))
18.0ms	im	@	-inf	((/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow re 3) re 3 (pow im 3) im (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow im 4) 4 (log 10) 10 (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (log 1/10) 1/10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) (pow (/ im re) 2) (/ im re) 2 (/ 1/2 (log 10)) 1/2 (/ (log re) (log 10)) (log re) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (/ (* im im) (log 10)) (* im im) (/ (* (log re) (* re re)) (log 10)) (* (log re) (* re re)) (* re re) (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (- (pow im 4) (pow (* im re) 2)) (pow (* im re) 2) (* im re) (pow re 4))

rewrite271.0ms (8.9%)

Memory

25.2MiB live, 310.7MiB allocated; 22ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1255	19698
0	1326	15128
1	6714	14963
0	8294	13221

Stop Event

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

Counts

446 → 623

Calls

Call 1

Inputs
(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow.f64 im #s(literal 4 binary64)))))) (log.f64 #s(literal 10 binary64)))
(log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow.f64 im #s(literal 4 binary64))))))
(/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow.f64 im #s(literal 4 binary64)))))
(hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))
(pow.f64 re #s(literal 3 binary64))
re
#s(literal 3 binary64)
(pow.f64 im #s(literal 3 binary64))
im
(sqrt.f64 #s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow.f64 im #s(literal 4 binary64)))
(pow.f64 im #s(literal 4 binary64))
#s(literal 4 binary64)
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)))
(log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
(fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
(pow.f64 (/.f64 im re) #s(literal 2 binary64))
(/.f64 im re)
#s(literal 2 binary64)
(/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))
#s(literal 1/2 binary64)
(/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))
(log.f64 re)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (fma.f64 (/.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 (log.f64 re) (.f64 re re)) (log.f64 #s(literal 10 binary64)))) (.f64 re re))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (fma.f64 (/.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 (log.f64 re) (.f64 re re)) (log.f64 #s(literal 10 binary64)))) (.f64 re re)))
(/.f64 (fma.f64 (/.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 (log.f64 re) (.f64 re re)) (log.f64 #s(literal 10 binary64)))) (.f64 re re))
(fma.f64 (/.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 (log.f64 re) (*.f64 re re)) (log.f64 #s(literal 10 binary64))))
(/.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))
(*.f64 im im)
(/.f64 (.f64 (log.f64 re) (.f64 re re)) (log.f64 #s(literal 10 binary64)))
(.f64 (log.f64 re) (.f64 re re))
(*.f64 re re)
(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (exp.f64 (.f64 (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/2 binary64))))) (log.f64 #s(literal 10 binary64)))
(log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (exp.f64 (.f64 (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/2 binary64)))))
(/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (exp.f64 (.f64 (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/2 binary64))))
(exp.f64 (.f64 (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/2 binary64)))
(.f64 (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/2 binary64))
(log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))
(+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))
(-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))
(pow.f64 (*.f64 im re) #s(literal 2 binary64))
(*.f64 im re)
(pow.f64 re #s(literal 4 binary64))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (log im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 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 (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (pow im 3)))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* 1/2 (/ (pow re 6) (pow im 3))) (pow im 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow re 6) (+ (* -1/8 (/ (pow re 6) (pow im 9))) (* 1/2 (/ 1 (pow im 3))))) (pow im 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow re 6) (+ (* (pow re 6) (- (* 1/16 (/ (pow re 6) (pow im 15))) (* 1/8 (/ 1 (pow im 9))))) (* 1/2 (/ 1 (pow im 3))))) (pow im 3))))
#s(approx (pow re 3) #s(hole binary64 (pow re 3)))
#s(approx re #s(hole binary64 re))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (pow im 2)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* -1/2 (pow re 2)) (pow im 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 2))) 1/2)) (pow im 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* 3/16 (/ (pow re 2) (pow im 4))) (* 3/8 (/ 1 (pow im 2))))) 1/2)) (pow im 2))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (pow im 4)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow im 4))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* (pow re 2) (- (pow re 2) (pow im 2))) (pow im 4))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log im) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (* -1 (log im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow im 2) (log 10))) (/ (* (pow re 2) (log re)) (log 10))) (pow re 2))))
#s(approx (pow (/ im re) 2) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (/ (log re) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (log re) #s(hole binary64 (log re)))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow im 2) (log 10))) (/ (* (pow re 2) (log re)) (log 10))) (pow re 2))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (/ (+ (* 1/2 (/ (pow im 2) (log 10))) (/ (* (pow re 2) (log re)) (log 10))) (pow re 2))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (* 1/2 (/ (pow im 2) (log 10)))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (log 10))) (/ (* (pow re 2) (log re)) (log 10)))))
#s(approx (/ (* (log re) (* re re)) (log 10)) #s(hole binary64 (/ (* (pow re 2) (log re)) (log 10))))
#s(approx (* (log re) (* re re)) #s(hole binary64 (* (pow re 2) (log re))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (log im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 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 (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (pow im 2)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (+ (* -1/2 (pow re 2)) (pow im 2))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 2))) 1/2)) (pow im 2))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* 3/16 (/ (pow re 2) (pow im 4))) (* 3/8 (/ 1 (pow im 2))))) 1/2)) (pow im 2))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (* 1/2 (log (pow im 4)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/2 (log (pow im 4))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* 1/2 (log (pow im 4))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* 1/2 (log (pow im 4))) (* (pow re 2) (- (* (pow re 2) (+ (* 1/3 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (log (pow im 4))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (log (pow im 4)) (* -1 (/ (pow re 2) (pow im 2))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (log (pow im 4)) (* (pow re 2) (- (* 1/2 (/ (pow re 2) (pow im 4))) (/ 1 (pow im 2)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (log (pow im 4)) (* (pow re 2) (- (* (pow re 2) (+ (* 2/3 (/ (pow re 2) (pow im 6))) (* 1/2 (/ 1 (pow im 4))))) (/ 1 (pow im 2)))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (pow im 4)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow im 4))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (+ (* (pow re 2) (- (pow re 2) (pow im 2))) (pow im 4))))
#s(approx (- (pow im 4) (pow (* im re) 2)) #s(hole binary64 (pow im 4)))
#s(approx (- (pow im 4) (pow (* im re) 2)) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow im 4))))
#s(approx (pow (* im re) 2) #s(hole binary64 (* (pow im 2) (pow re 2))))
#s(approx (* im re) #s(hole binary64 (* im re)))
#s(approx (pow re 4) #s(hole binary64 (pow re 4)))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (pow re 3)))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow re 3) (+ 1 (* 1/2 (/ (pow im 6) (pow re 6)))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (* 1/2 (/ (pow im 6) (pow re 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (+ (* 1/16 (/ (pow im 18) (pow re 18))) (* 1/2 (/ (pow im 6) (pow re 6)))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (pow re 2)))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow re 2) (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (- (pow im 4) (* 1/4 (pow im 4))) (pow re 4))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/4 (/ (* (pow im 2) (- (pow im 4) (* 1/4 (pow im 4)))) (pow re 6))) (* 1/2 (/ (- (pow im 4) (* 1/4 (pow im 4))) (pow re 4)))))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (pow re 4)))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow re 4) (+ 1 (* -1 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow re 4) (- (+ 1 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ 1 re))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log re) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (log re) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (* -1 (/ (* (pow re 2) (log (/ 1 re))) (log 10)))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (* (log re) (* re re)) (log 10)) #s(hole binary64 (* -1 (/ (* (pow re 2) (log (/ 1 re))) (log 10)))))
#s(approx (* (log re) (* re re)) #s(hole binary64 (* -1 (* (pow re 2) (log (/ 1 re))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (pow re 2)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (* (pow re 2) (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (- (pow im 4) (* 1/4 (pow im 4))) (pow re 4))))))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/4 (/ (* (pow im 2) (- (pow im 4) (* 1/4 (pow im 4)))) (pow re 6))) (* 1/2 (/ (- (pow im 4) (* 1/4 (pow im 4))) (pow re 4)))))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (* -2 (log (/ 1 re)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ 1 re))) (* -1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ 1 re))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/48 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4)))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ 1 re))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/1440 (/ (+ (* -240 (pow im 6)) (* 720 (pow im 6))) (pow re 6))) (* 1/48 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4))))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (* -4 (log (/ 1 re)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ 1 re))) (* -1 (/ (pow im 2) (pow re 2))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ 1 re))) (+ (* -1 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ 1 re))) (+ (* -1 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -240 (pow im 6)) (* 720 (pow im 6))) (pow re 6))) (* 1/24 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4))))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (pow re 4)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (* (pow re 4) (+ 1 (* -1 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (* (pow re 4) (- (+ 1 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))
#s(approx (- (pow im 4) (pow (* im re) 2)) #s(hole binary64 (* -1 (* (pow im 2) (pow re 2)))))
#s(approx (- (pow im 4) (pow (* im re) 2)) #s(hole binary64 (* (pow re 2) (- (/ (pow im 4) (pow re 2)) (pow im 2)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (pow re 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (* 1/2 (/ (pow im 6) (pow re 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (* 1/2 (/ (pow im 6) (pow re 6)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* -1/8 (/ (pow im 12) (pow re 12))) (+ (* 1/16 (/ (pow im 18) (pow re 18))) (* 1/2 (/ (pow im 6) (pow re 6))))))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ -1 re))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (/ (log re) (log 10)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 re)))) (log 10))))
#s(approx (log re) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 re))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (log (/ -1 re)) (log 10))) (/ (log -1) (log 10))))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (log 10)))))))
#s(approx (/ (* (log re) (* re re)) (log 10)) #s(hole binary64 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 re))))) (log 10))))
#s(approx (* (log re) (* re re)) #s(hole binary64 (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 re)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (* (pow re 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4))))) (+ (* 30 (pow im 6)) (* 180 (* (pow im 2) (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))))))) (pow re 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4)))) (* -3 (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 4)) (pow im 4))) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (+ (* 1/4 (pow im 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 4))))) (* (pow im 2) (+ (* -1 (pow im 4)) (pow im 4)))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (* -2 (log (/ -1 re)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ -1 re))) (* -1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ -1 re))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/48 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4)))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ -1 re))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/1440 (/ (+ (* -240 (pow im 6)) (* 720 (pow im 6))) (pow re 6))) (* 1/48 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4))))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (* -4 (log (/ -1 re)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ -1 re))) (* -1 (/ (pow im 2) (pow re 2))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ -1 re))) (+ (* -1 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ -1 re))) (+ (* -1 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -240 (pow im 6)) (* 720 (pow im 6))) (pow re 6))) (* 1/24 (/ (+ (* -12 (pow im 4)) (* 24 (pow im 4))) (pow re 4))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (log re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 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 (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* 1/2 (/ (pow im 6) (pow re 3))) (pow re 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow im 6) (+ (* -1/8 (/ (pow im 6) (pow re 9))) (* 1/2 (/ 1 (pow re 3))))) (pow re 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (+ (* (pow im 6) (+ (* (pow im 6) (- (* 1/16 (/ (pow im 6) (pow re 15))) (* 1/8 (/ 1 (pow re 9))))) (* 1/2 (/ 1 (pow re 3))))) (pow re 3))))
#s(approx (pow im 3) #s(hole binary64 (pow im 3)))
#s(approx im #s(hole binary64 im))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* -1/2 (pow im 2)) (pow re 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 2))) 1/2)) (pow re 2))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* 3/16 (/ (pow im 2) (pow re 4))) (* 3/8 (/ 1 (pow re 2))))) 1/2)) (pow re 2))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow re 4))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (+ (* (pow im 2) (- (pow im 2) (pow re 2))) (pow re 4))))
#s(approx (pow im 4) #s(hole binary64 (pow im 4)))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log re) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (* -1 (log re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (log re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (/ (* (pow re 2) (log re)) (log 10))))
#s(approx (/ (* im im) (log 10)) #s(hole binary64 (/ (pow im 2) (log 10))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (log re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 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 (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (+ (* -1/2 (pow im 2)) (pow re 2))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 2))) 1/2)) (pow re 2))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* 3/16 (/ (pow im 2) (pow re 4))) (* 3/8 (/ 1 (pow re 2))))) 1/2)) (pow re 2))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (* 1/2 (log (pow re 4)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/2 (log (pow re 4))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* 1/2 (log (pow re 4))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* 1/2 (log (pow re 4))) (* (pow im 2) (- (* (pow im 2) (+ (* 1/3 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (log (pow re 4))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (log (pow re 4)) (* -1 (/ (pow im 2) (pow re 2))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (log (pow re 4)) (* (pow im 2) (- (* 1/2 (/ (pow im 2) (pow re 4))) (/ 1 (pow re 2)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (log (pow re 4)) (* (pow im 2) (- (* (pow im 2) (+ (* 2/3 (/ (pow im 2) (pow re 6))) (* 1/2 (/ 1 (pow re 4))))) (/ 1 (pow re 2)))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (+ (* -1 (* (pow im 2) (pow re 2))) (pow re 4))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (+ (* (pow im 2) (- (pow im 2) (pow re 2))) (pow re 4))))
#s(approx (- (pow im 4) (pow (* im re) 2)) #s(hole binary64 (* (pow im 2) (- (pow im 2) (pow re 2)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow im 3) (+ 1 (* 1/2 (/ (pow re 6) (pow im 6)))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (* 1/2 (/ (pow re 6) (pow im 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (+ (* 1/16 (/ (pow re 18) (pow im 18))) (* 1/2 (/ (pow re 6) (pow im 6)))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow im 2) (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/2 (/ (- (pow re 4) (* 1/4 (pow re 4))) (pow im 4))))))))
#s(approx (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/4 (/ (* (pow re 2) (- (pow re 4) (* 1/4 (pow re 4)))) (pow im 6))) (* 1/2 (/ (- (pow re 4) (* 1/4 (pow re 4))) (pow im 4)))))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow im 4) (+ 1 (* -1 (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) #s(hole binary64 (* (pow im 4) (- (+ 1 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* -1 (log (/ 1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (+ (* (pow (/ im re) 2) (/ 1/2 (log 10))) (/ (log re) (log 10))) #s(hole binary64 (* (pow im 2) (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (log re) (* (pow im 2) (log 10)))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) #s(hole binary64 (* (pow im 2) (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (log re) (* (pow im 2) (log 10)))))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) #s(hole binary64 (* (pow im 2) (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (log re) (* (pow im 2) (log 10)))))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) #s(hole binary64 (* (pow im 2) (+ (* 1/2 (/ 1 (log 10))) (/ (* (pow re 2) (log re)) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/2 (/ (- (pow re 4) (* 1/4 (pow re 4))) (pow im 4))))))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/4 (/ (* (pow re 2) (- (pow re 4) (* 1/4 (pow re 4)))) (pow im 6))) (* 1/2 (/ (- (pow re 4) (* 1/4 (pow re 4))) (pow im 4)))))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (* -2 (log (/ 1 im)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ 1 im))) (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ 1 im))) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/48 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4)))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ 1 im))) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/1440 (/ (+ (* -240 (pow re 6)) (* 720 (pow re 6))) (pow im 6))) (* 1/48 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4))))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (* -4 (log (/ 1 im)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ 1 im))) (* -1 (/ (pow re 2) (pow im 2))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ 1 im))) (+ (* -1 (/ (pow re 2) (pow im 2))) (* 1/24 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ 1 im))) (+ (* -1 (/ (pow re 2) (pow im 2))) (+ (* 1/720 (/ (+ (* -240 (pow re 6)) (* 720 (pow re 6))) (pow im 6))) (* 1/24 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4))))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (* (pow im 4) (+ 1 (* -1 (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) #s(hole binary64 (* (pow im 4) (- (+ 1 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))
#s(approx (- (pow im 4) (pow (* im re) 2)) #s(hole binary64 (* (pow im 4) (+ 1 (* -1 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (pow im 3))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (* 1/2 (/ (pow re 6) (pow im 6))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (* 1/2 (/ (pow re 6) (pow im 6)))))))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (+ (* -1/8 (/ (pow re 12) (pow im 12))) (+ (* 1/16 (/ (pow re 18) (pow im 18))) (* 1/2 (/ (pow re 6) (pow im 6))))))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (+ (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ -1 im))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) #s(hole binary64 (- (* -1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* -1 (log (/ -1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (* (pow im 6) (log 10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* 1/720 (/ (+ (* -360 (+ (* -1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4))))) (+ (* 30 (pow re 6)) (* 180 (* (pow re 2) (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))))))) (pow im 6))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4)))) (* -3 (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 4)) (pow re 4))) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (+ (* 1/4 (pow re 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 4))))) (* (pow re 2) (+ (* -1 (pow re 4)) (pow re 4)))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (* -2 (log (/ -1 im)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ -1 im))) (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ -1 im))) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/48 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4)))))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) #s(hole binary64 (+ (* -2 (log (/ -1 im))) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/1440 (/ (+ (* -240 (pow re 6)) (* 720 (pow re 6))) (pow im 6))) (* 1/48 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4))))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (* -4 (log (/ -1 im)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ -1 im))) (* -1 (/ (pow re 2) (pow im 2))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ -1 im))) (+ (* -1 (/ (pow re 2) (pow im 2))) (* 1/24 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) #s(hole binary64 (+ (* -4 (log (/ -1 im))) (+ (* -1 (/ (pow re 2) (pow im 2))) (+ (* 1/720 (/ (+ (* -240 (pow re 6)) (* 720 (pow re 6))) (pow im 6))) (* 1/24 (/ (+ (* -12 (pow re 4)) (* 24 (pow re 4))) (pow im 4))))))))

Outputs
(/.f64 (neg.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 #s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64))))))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 #s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64)))))) (log.f64 #s(literal 10 binary64)))
(-.f64 (log.f64 (neg.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (log.f64 (neg.f64 (sqrt.f64 #s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64)))))))
(-.f64 (log.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))) (log.f64 (sqrt.f64 #s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64))))))
(log.f64 (/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 #s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64))))))
(/.f64 (neg.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))) (neg.f64 (sqrt.f64 #s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64))))))
(/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 #s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64)))))
(sqrt.f64 (/.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64)))))
(pow.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (neg.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (fabs.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (pow.f64 im #s(literal 3 binary64)))
(hypot.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (fabs.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (pow.f64 re #s(literal 3 binary64)))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 3 binary64))) (neg.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 3 binary64))) (fabs.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (fabs.f64 (pow.f64 re #s(literal 3 binary64))) (pow.f64 im #s(literal 3 binary64)))
(hypot.f64 (fabs.f64 (pow.f64 im #s(literal 3 binary64))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (fabs.f64 (pow.f64 im #s(literal 3 binary64))) (fabs.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (fabs.f64 (pow.f64 im #s(literal 3 binary64))) (pow.f64 re #s(literal 3 binary64)))
(hypot.f64 (pow.f64 im #s(literal 3 binary64)) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (pow.f64 im #s(literal 3 binary64)) (fabs.f64 (pow.f64 re #s(literal 3 binary64))))
(hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))
(hypot.f64 (pow.f64 re #s(literal 3 binary64)) (neg.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (pow.f64 re #s(literal 3 binary64)) (fabs.f64 (pow.f64 im #s(literal 3 binary64))))
(hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))
(exp.f64 (*.f64 (log.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 re #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3/2 binary64)))
(.f64 (.f64 re re) re)
(.f64 re (.f64 re re))
(pow.f64 re #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 3 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 re) #s(literal 3 binary64))) (sinh.f64 (.f64 (log.f64 re) #s(literal 3 binary64))))
re
#s(literal 3 binary64)
(*.f64 (pow.f64 im #s(literal 3/2 binary64)) (pow.f64 im #s(literal 3/2 binary64)))
(.f64 (.f64 im im) im)
(.f64 im (.f64 im im))
(pow.f64 im #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 3 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 im) #s(literal 3 binary64))) (sinh.f64 (.f64 (log.f64 im) #s(literal 3 binary64))))
im
(pow.f64 #s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64))))
(exp.f64 (.f64 (log.f64 #s(approx (+ (- (pow im 4) (pow ( im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1/2 binary64)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64)))
(.f64 (.f64 im im) (*.f64 im im))
(pow.f64 im #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 im) #s(literal 4 binary64))) (sinh.f64 (.f64 (log.f64 im) #s(literal 4 binary64))))
#s(literal 4 binary64)
(neg.f64 (log.f64 #s(literal 1/10 binary64)))
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
(/.f64 (neg.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)))) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)) (log.f64 #s(literal 1/10 binary64))))
(neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)))
(-.f64 #s(literal 0 binary64) (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)))
(log.f64 (pow.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re) #s(literal -1 binary64)))
(log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)
(neg.f64 (log.f64 #s(literal 10 binary64)))
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64))) (.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64)))) (.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))) (-.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64))) (.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64))) (-.f64 (.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))) (.f64 (.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))))
(fma.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (/.f64 im re)) (/.f64 im re) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
(fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
(fma.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
(fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64))))
(+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64))))
(+.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
(*.f64 (pow.f64 (/.f64 im re) #s(literal 1 binary64)) (pow.f64 (/.f64 im re) #s(literal 1 binary64)))
(*.f64 (neg.f64 (/.f64 im re)) (neg.f64 (/.f64 im re)))
(*.f64 (fabs.f64 (/.f64 im re)) (fabs.f64 (/.f64 im re)))
(*.f64 (/.f64 im re) (/.f64 im re))
(pow.f64 (/.f64 im re) #s(literal 2 binary64))
(/.f64 (*.f64 im (/.f64 im re)) re)
(/.f64 (*.f64 (/.f64 im re) im) re)
(/.f64 (neg.f64 (.f64 im im)) (neg.f64 (.f64 re re)))
(/.f64 (.f64 im im) (.f64 re re))
(exp.f64 (*.f64 (log.f64 (/.f64 im re)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (/.f64 im re)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (/.f64 im re)) #s(literal 2 binary64))))
(/.f64 (neg.f64 im) (neg.f64 re))
(/.f64 im re)
#s(literal 2 binary64)
(*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))
(/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))
(/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))
#s(literal 1/2 binary64)
(*.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))))
(/.f64 (neg.f64 (neg.f64 (log.f64 re))) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))
(neg.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))))
(log.f64 re)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (fma.f64 (.f64 im (/.f64 im (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))) (.f64 re re))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (fma.f64 (.f64 im (/.f64 im (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))) (.f64 re re)))
(/.f64 (/.f64 (fma.f64 (.f64 im (/.f64 im (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (.f64 (*.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))) re) re)
(/.f64 (neg.f64 (fma.f64 (.f64 im (/.f64 im (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64))))) (neg.f64 (.f64 re re)))
(/.f64 (fma.f64 (.f64 im (/.f64 im (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))) (.f64 re re))
(+.f64 (/.f64 (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64))) (.f64 re re)) (/.f64 (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64))) (.f64 re re)))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64))) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64)))) (.f64 (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64))) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64))))) (-.f64 (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64))) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64))) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64))) (-.f64 (.f64 (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64))) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))) (.f64 (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64))) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))))))
(fma.f64 (.f64 im (/.f64 im (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (.f64 (*.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64))))
(fma.f64 (.f64 re re) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (/.f64 (.f64 (*.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64))))
(fma.f64 (log.f64 re) (/.f64 (.f64 re re) (log.f64 #s(literal 10 binary64))) (/.f64 (.f64 (*.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64))))
(fma.f64 #s(literal 1/2 binary64) (.f64 im (/.f64 im (log.f64 #s(literal 10 binary64)))) (/.f64 (.f64 (*.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64))))
(+.f64 (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64))) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64))))
(+.f64 (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64))) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64))))
(*.f64 im (/.f64 im (log.f64 #s(literal 10 binary64))))
(/.f64 (neg.f64 (*.f64 im im)) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))
(*.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 im #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 im) #s(literal 2 binary64))))
(.f64 (.f64 re re) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
(.f64 (log.f64 re) (/.f64 (.f64 re re) (log.f64 #s(literal 10 binary64))))
(/.f64 (neg.f64 (.f64 (.f64 (log.f64 re) re) re)) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))
(.f64 (.f64 (log.f64 re) re) re)
(.f64 (.f64 re re) (log.f64 re))
(.f64 (log.f64 re) (.f64 re re))
(log.f64 (pow.f64 re (*.f64 re re)))
(*.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 re #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 re) #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (log.f64 (hypot.f64 im re)))) (log.f64 #s(literal 10 binary64)))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 #s(literal 1/10 binary64))))
(.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (.f64 re re))))
(-.f64 (log.f64 (neg.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (log.f64 (neg.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
(-.f64 (log.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))) (log.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))))
(log.f64 (hypot.f64 im re))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))) (neg.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))))
(/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im)
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(exp.f64 (.f64 (log.f64 (fma.f64 im im (.f64 re re))) #s(literal 1/2 binary64)))
(pow.f64 (exp.f64 (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))) #s(literal 1/2 binary64))
(pow.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))
(exp.f64 (.f64 (log.f64 (exp.f64 (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))) #s(literal 1/2 binary64)))
(exp.f64 (log.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))))
(+.f64 (cosh.f64 (log.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))) (sinh.f64 (log.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
(.f64 (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (log.f64 (exp.f64 (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
(.f64 #s(literal 1/2 binary64) (log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(log.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(-.f64 (log.f64 (-.f64 (.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64)))) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))))) (log.f64 (-.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(-.f64 (log.f64 (-.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64)))))) (log.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))))
(-.f64 (log.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 3 binary64)))) (log.f64 (fma.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (-.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
(-.f64 (log.f64 (+.f64 (pow.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) #s(literal 3 binary64)))) (log.f64 (fma.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)) (-.f64 (.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64)))) (.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))))))))
(log.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64)))) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))))) (-.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (-.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))))
(/.f64 (+.f64 (pow.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)) (-.f64 (.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64))) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64)))) (.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64)))))))
(fma.f64 (.f64 re re) (.f64 re re) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))
(-.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))
(-.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))))
(+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))
(+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 (pow.f64 (.f64 im re) #s(literal 2 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64)))) (+.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 im re) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)) (fma.f64 (pow.f64 (.f64 im re) #s(literal 2 binary64)) (pow.f64 (.f64 im re) #s(literal 2 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))))
(-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 im re) #s(literal 1 binary64)) (pow.f64 (*.f64 im re) #s(literal 1 binary64)))
(.f64 (.f64 im re) (*.f64 im re))
(.f64 (.f64 im im) (*.f64 re re))
(.f64 (.f64 re re) (*.f64 im im))
(pow.f64 (*.f64 im re) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 im re)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (.f64 im re)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (.f64 im re)) #s(literal 2 binary64))))
(*.f64 im re)
(*.f64 re im)
(.f64 (.f64 re re) (*.f64 re re))
(pow.f64 re #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 re) #s(literal 4 binary64))) (sinh.f64 (.f64 (log.f64 re) #s(literal 4 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64))))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 re re) (.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 im))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (pow.f64 im #s(literal 4 binary64)))) (*.f64 re re) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 re re) (.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 re re) (log.f64 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow.f64 im #s(literal 3 binary64)))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/2 binary64) (pow.f64 im #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 9 binary64))) #s(literal -1/8 binary64) (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64))) (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 15 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -9 binary64)))) (pow.f64 re #s(literal 6 binary64)) (.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64))) (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (pow re 3) (pow.f64 re #s(literal 3 binary64)))
#s(approx re re)
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (*.f64 im im))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (fma.f64 #s(literal -1/2 binary64) (.f64 re re) (.f64 im im)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 3/8 binary64) (.f64 re re)) (.f64 im im)) #s(literal 1/2 binary64)) (.f64 re re) (*.f64 im im)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal 3/16 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 3/8 binary64) (pow.f64 im #s(literal -2 binary64)))) (.f64 re re)) #s(literal 1/2 binary64)) (.f64 re re) (.f64 im im)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (fma.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (fma.f64 (-.f64 (.f64 re re) (.f64 im im)) (*.f64 re re) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 re re)) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 im #s(literal 6 binary64))))) (.f64 re re) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (neg.f64 (log.f64 im)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (*.f64 im im)) (log.f64 im)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64)))) (.f64 re re)) (log.f64 im)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (.f64 (pow.f64 im #s(literal -4 binary64)) #s(literal 1/4 binary64))) (.f64 re re) (.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64)))) (.f64 re re)) (log.f64 im)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64))))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 re re) (.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (fma.f64 (.f64 im (/.f64 im (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))) (.f64 re re)))
#s(approx (pow (/ im re) 2) (pow.f64 (/.f64 im re) #s(literal 2 binary64)))
#s(approx (/ im re) (/.f64 im re))
#s(approx (/ (log re) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (log re) (log.f64 re))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (fma.f64 (.f64 im (/.f64 im (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))) (.f64 re re)))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (/.f64 (fma.f64 (.f64 im (/.f64 im (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))) (.f64 re re)))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (fma.f64 (.f64 im (/.f64 im (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (.f64 (*.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (* (log re) (* re re)) (log 10)) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64))))
#s(approx (* (log re) (* re re)) (.f64 (.f64 (log.f64 re) re) re))
#s(approx (* re re) (*.f64 re re))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64))))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 re re) (.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 im))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (pow.f64 im #s(literal 4 binary64)))) (*.f64 re re) (log.f64 im)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 re re) (.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 re re) (log.f64 im)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im)
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (*.f64 im im))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (fma.f64 #s(literal -1/2 binary64) (.f64 re re) (.f64 im im)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 3/8 binary64) (.f64 re re)) (.f64 im im)) #s(literal 1/2 binary64)) (.f64 re re) (*.f64 im im)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal 3/16 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 3/8 binary64) (pow.f64 im #s(literal -2 binary64)))) (.f64 re re)) #s(literal 1/2 binary64)) (.f64 re re) (.f64 im im)))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (.f64 (.f64 #s(literal 4 binary64) (log.f64 im)) #s(literal 1/2 binary64)))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (.f64 #s(literal 4 binary64) (log.f64 im)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (.f64 im im))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (.f64 #s(literal 4 binary64) (log.f64 im)) #s(literal 1/2 binary64) (.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64)))) (*.f64 re re))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/3 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (.f64 (pow.f64 im #s(literal -4 binary64)) #s(literal 1/4 binary64))) (.f64 re re) (.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64)))) (.f64 re re) (.f64 (*.f64 #s(literal 4 binary64) (log.f64 im)) #s(literal 1/2 binary64))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (*.f64 #s(literal 4 binary64) (log.f64 im)))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 #s(literal 4 binary64) (log.f64 im) (neg.f64 (/.f64 (.f64 re re) (.f64 im im)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal -2 binary64))) (.f64 re re) (.f64 #s(literal 4 binary64) (log.f64 im))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal 2/3 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (.f64 (pow.f64 im #s(literal -4 binary64)) #s(literal 1/2 binary64))) (.f64 re re)) (pow.f64 im #s(literal -2 binary64))) (.f64 re re) (.f64 #s(literal 4 binary64) (log.f64 im))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 im #s(literal 4 binary64)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (fma.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (fma.f64 (-.f64 (.f64 re re) (.f64 im im)) (*.f64 re re) (pow.f64 im #s(literal 4 binary64))))
#s(approx (- (pow im 4) (pow (* im re) 2)) (pow.f64 im #s(literal 4 binary64)))
#s(approx (- (pow im 4) (pow (* im re) 2)) (fma.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64))))
#s(approx (pow (* im re) 2) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))
#s(approx (* im re) (*.f64 im re))
#s(approx (pow re 4) (pow.f64 re #s(literal 4 binary64)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/24 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/24 binary64) (.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (neg.f64 (log.f64 re))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (log.f64 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (*.f64 (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (pow.f64 re #s(literal 3 binary64)))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (*.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 re #s(literal 12 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64)))) #s(literal 1 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 re #s(literal 12 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 18 binary64)) (pow.f64 re #s(literal 18 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (*.f64 re re))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (.f64 (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64) #s(literal 1 binary64)) (.f64 re re)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (.f64 (+.f64 (fma.f64 (/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 re re)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (.f64 (+.f64 (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 (/.f64 (.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (.f64 im im)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/4 binary64) (.f64 (/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/2 binary64)))) (*.f64 re re)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 re #s(literal 4 binary64)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (*.f64 (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1 binary64) #s(literal 1 binary64)) (pow.f64 re #s(literal 4 binary64))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (*.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64)))) (pow.f64 re #s(literal 4 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/24 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/24 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 re #s(literal 6 binary64)))) #s(literal -1/720 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (neg.f64 (log.f64 re)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64)) (neg.f64 (neg.f64 (log.f64 re)))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 #s(literal -1/24 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64)))) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (log.f64 re))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64)))) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log re) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (log re) (neg.f64 (neg.f64 (log.f64 re))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (neg.f64 (.f64 (.f64 re re) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))) (.f64 re re)))
#s(approx (/ (* (log re) (* re re)) (log 10)) (neg.f64 (.f64 (.f64 re re) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (* (log re) (* re re)) (neg.f64 (.f64 (neg.f64 (log.f64 re)) (.f64 re re))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/24 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/24 binary64) (.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (neg.f64 (log.f64 re))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (log.f64 re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (*.f64 (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) re))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (*.f64 re re))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (.f64 (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64) #s(literal 1 binary64)) (.f64 re re)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (.f64 (+.f64 (fma.f64 (/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/2 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 re re)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (.f64 (+.f64 (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 (/.f64 (.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (.f64 im im)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/4 binary64) (.f64 (/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/2 binary64)))) (*.f64 re re)))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (*.f64 #s(literal -2 binary64) (neg.f64 (log.f64 re))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 #s(literal -2 binary64) (neg.f64 (log.f64 re)) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 #s(literal -2 binary64) (neg.f64 (log.f64 re)) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 12 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 #s(literal -2 binary64) (neg.f64 (log.f64 re)) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 480 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/1440 binary64) (/.f64 (.f64 #s(literal 1/48 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 12 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (*.f64 #s(literal -4 binary64) (neg.f64 (log.f64 re))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 #s(literal -4 binary64) (neg.f64 (log.f64 re)) (neg.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 #s(literal -4 binary64) (neg.f64 (log.f64 re)) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 12 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (neg.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 #s(literal -4 binary64) (neg.f64 (log.f64 re)) (+.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 480 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 12 binary64))) (pow.f64 re #s(literal 4 binary64)))) (neg.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (pow.f64 re #s(literal 4 binary64)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (*.f64 (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1 binary64) #s(literal 1 binary64)) (pow.f64 re #s(literal 4 binary64))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (*.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (/.f64 im re) #s(literal 2 binary64)))) (pow.f64 re #s(literal 4 binary64))))
#s(approx (- (pow im 4) (pow (* im re) 2)) (neg.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64))))
#s(approx (- (pow im 4) (pow (* im re) 2)) (.f64 (-.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) (.f64 im im)) (.f64 re re)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/24 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/24 binary64) (.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (*.f64 (neg.f64 re) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (*.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 re #s(literal 12 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (neg.f64 (pow.f64 re #s(literal 3 binary64))) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 re #s(literal 12 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 18 binary64)) (pow.f64 re #s(literal 18 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/24 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/24 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 re #s(literal 6 binary64)))) #s(literal -1/720 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log.f64 (/.f64 #s(literal -1 binary64) re)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal 1 binary64)))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 #s(literal -1/24 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64)))) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64)))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (+.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log re) (log 10)) (/.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))) (log.f64 #s(literal 10 binary64))))
#s(approx (log re) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (+.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (/.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (+.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (/.f64 (.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))) (.f64 re re)) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))) (.f64 re re)))
#s(approx (/ (* (log re) (* re re)) (log 10)) (/.f64 (.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))) (.f64 re re)) (log.f64 #s(literal 10 binary64))))
#s(approx (* (log re) (* re re)) (.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))) (.f64 re re)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/24 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1/24 binary64) (.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) #s(literal -12 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (*.f64 (neg.f64 re) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 im im)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 im #s(literal 4 binary64)) (neg.f64 (pow.f64 im #s(literal 4 binary64)))) (.f64 (.f64 #s(literal 0 binary64) (pow.f64 im #s(literal 4 binary64))) (.f64 im im))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal -2 binary64))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -2 binary64) (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -2 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 12 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -2 binary64) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 480 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/1440 binary64) (/.f64 (.f64 #s(literal 1/48 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 12 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal -4 binary64))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -4 binary64) (neg.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -4 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 12 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (neg.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -4 binary64) (+.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 480 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 12 binary64))) (pow.f64 re #s(literal 4 binary64)))) (neg.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64))))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 im im) (.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 re))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (pow.f64 re #s(literal 4 binary64)))) (*.f64 im im) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 im im) (.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 im im) (log.f64 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 3 binary64))) #s(literal 1/2 binary64) (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 9 binary64))) #s(literal -1/8 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64))) (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 15 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -9 binary64)))) (pow.f64 im #s(literal 6 binary64)) (.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64))) (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (pow im 3) (pow.f64 im #s(literal 3 binary64)))
#s(approx im im)
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (fma.f64 #s(literal -1/2 binary64) (.f64 im im) (.f64 re re)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (fma.f64 (-.f64 (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 3/8 binary64)) #s(literal 1/2 binary64)) (.f64 im im) (*.f64 re re)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (fma.f64 (-.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 3/8 binary64) (/.f64 (.f64 #s(literal 3/16 binary64) (.f64 im im)) (pow.f64 re #s(literal 4 binary64)))) (.f64 im im)) #s(literal 1/2 binary64)) (.f64 im im) (.f64 re re)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (fma.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (fma.f64 (-.f64 (.f64 im im) (.f64 re re)) (*.f64 im im) (pow.f64 re #s(literal 4 binary64))))
#s(approx (pow im 4) (pow.f64 im #s(literal 4 binary64)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 im im)) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 re #s(literal 6 binary64))))) (.f64 im im) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (neg.f64 (log.f64 re)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (*.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64)) (log.f64 re)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -2 binary64)))) (.f64 im im)) (log.f64 re)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (fma.f64 (fma.f64 (pow.f64 re #s(literal -4 binary64)) #s(literal 1/4 binary64) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 im im)) (pow.f64 re #s(literal 6 binary64)))) (.f64 im im) (.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -2 binary64)))) (.f64 im im)) (log.f64 re)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64))))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 im im) (.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (* im im) (log 10)) (*.f64 im (/.f64 im (log.f64 #s(literal 10 binary64)))))
#s(approx (* im im) (*.f64 im im))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 re #s(literal 4 binary64))))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (.f64 im im) (.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (log.f64 re))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (pow.f64 re #s(literal 4 binary64)))) (*.f64 im im) (log.f64 re)))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 im im) (.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 im im) (log.f64 re)))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (fma.f64 #s(literal -1/2 binary64) (.f64 im im) (.f64 re re)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (fma.f64 (-.f64 (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 3/8 binary64)) #s(literal 1/2 binary64)) (.f64 im im) (*.f64 re re)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (fma.f64 (-.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 3/8 binary64) (/.f64 (.f64 #s(literal 3/16 binary64) (.f64 im im)) (pow.f64 re #s(literal 4 binary64)))) (.f64 im im)) #s(literal 1/2 binary64)) (.f64 im im) (.f64 re re)))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (.f64 (.f64 #s(literal 4 binary64) (log.f64 re)) #s(literal 1/2 binary64)))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (.f64 #s(literal 4 binary64) (log.f64 re)) #s(literal 1/2 binary64) (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (.f64 #s(literal 4 binary64) (log.f64 re)) #s(literal 1/2 binary64) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -2 binary64)))) (*.f64 im im))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (fma.f64 (fma.f64 (pow.f64 re #s(literal -4 binary64)) #s(literal 1/4 binary64) (/.f64 (.f64 #s(literal 1/3 binary64) (.f64 im im)) (pow.f64 re #s(literal 6 binary64)))) (.f64 im im) (.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -2 binary64)))) (.f64 im im) (.f64 (*.f64 #s(literal 4 binary64) (log.f64 re)) #s(literal 1/2 binary64))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (*.f64 #s(literal 4 binary64) (log.f64 re)))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 #s(literal 4 binary64) (log.f64 re) (neg.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 im im)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 re #s(literal -2 binary64))) (.f64 im im) (.f64 #s(literal 4 binary64) (log.f64 re))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (-.f64 (.f64 (fma.f64 (pow.f64 re #s(literal -4 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 2/3 binary64) (.f64 im im)) (pow.f64 re #s(literal 6 binary64)))) (.f64 im im)) (pow.f64 re #s(literal -2 binary64))) (.f64 im im) (.f64 #s(literal 4 binary64) (log.f64 re))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (fma.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (fma.f64 (-.f64 (.f64 im im) (.f64 re re)) (*.f64 im im) (pow.f64 re #s(literal 4 binary64))))
#s(approx (- (pow im 4) (pow (* im re) 2)) (.f64 (-.f64 (.f64 im im) (.f64 re re)) (.f64 im im)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (neg.f64 (log.f64 im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (log.f64 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 im #s(literal 12 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64)))) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 im #s(literal 12 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 18 binary64)) (pow.f64 im #s(literal 18 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1 binary64)) (.f64 im im)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (.f64 (+.f64 (fma.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64)) (.f64 im im)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 (.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 re re)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/4 binary64) (.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (.f64 (-.f64 (+.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 1 binary64)) (/.f64 (.f64 re re) (*.f64 im im))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/24 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/24 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 im #s(literal 6 binary64)))) #s(literal -1/720 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (neg.f64 (log.f64 im)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (*.f64 im im)) (neg.f64 (neg.f64 (log.f64 im)))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/24 binary64)) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (log.f64 im))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/720 binary64)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))))) (.f64 im im)))
#s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))))) (.f64 im im)))
#s(approx (/ (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (* re re)) (.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))))) (.f64 im im)))
#s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (.f64 im im)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (neg.f64 (log.f64 im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (log.f64 im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1 binary64)) (.f64 im im)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (.f64 (+.f64 (fma.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64)) (.f64 im im)))
#s(approx (exp (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2)) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 (.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 re re)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/4 binary64) (.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (*.f64 (neg.f64 (log.f64 im)) #s(literal -2 binary64)))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -2 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (*.f64 im im))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -2 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 12 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/48 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (.f64 im im)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -2 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 480 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/1440 binary64) (/.f64 (.f64 #s(literal 1/48 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 12 binary64))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (*.f64 (neg.f64 (log.f64 im)) #s(literal -4 binary64)))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -4 binary64) (neg.f64 (/.f64 (.f64 re re) (.f64 im im)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 12 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (neg.f64 (/.f64 (.f64 re re) (*.f64 im im))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -4 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 480 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 12 binary64))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4)) (.f64 (-.f64 (+.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 1 binary64)) (/.f64 (.f64 re re) (*.f64 im im))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (- (pow im 4) (pow (* im re) 2)) (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (neg.f64 (pow.f64 im #s(literal 3 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (*.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 im #s(literal 12 binary64))) #s(literal -1/8 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (.f64 (neg.f64 (pow.f64 im #s(literal 3 binary64))) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 im #s(literal 12 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 18 binary64)) (pow.f64 im #s(literal 18 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/24 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (.f64 re re) (.f64 im im)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 1/10 binary64))) #s(literal -1/24 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 im #s(literal 6 binary64)))) #s(literal -1/720 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (log.f64 (/.f64 #s(literal -1 binary64) im)))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 1 binary64)))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/24 binary64)) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))))
#s(approx (neg (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))))) (-.f64 (.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/720 binary64)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im)))))
#s(approx (log (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2)))))) (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) #s(literal -360 binary64) (fma.f64 (.f64 #s(literal 180 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) #s(literal -12 binary64) (.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (.f64 im im))) #s(literal 1 binary64))))
#s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 0 binary64) (pow.f64 re #s(literal 4 binary64))) (.f64 re re) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (fma.f64 #s(literal 5/4 binary64) (pow.f64 re #s(literal 4 binary64)) (neg.f64 (pow.f64 re #s(literal 4 binary64)))))) (pow.f64 im #s(literal 6 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 re re)) (*.f64 im im)))) #s(literal 1 binary64))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -2 binary64))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -2 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (*.f64 im im))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -2 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 12 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/48 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 re re)) (.f64 im im)))))
#s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -2 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 480 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/1440 binary64) (/.f64 (.f64 #s(literal 1/48 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 12 binary64))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -4 binary64))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -4 binary64) (neg.f64 (/.f64 (.f64 re re) (.f64 im im)))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -4 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 12 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/24 binary64) (neg.f64 (/.f64 (.f64 re re) (*.f64 im im))))))
#s(approx (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -4 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 480 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64) (/.f64 (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 12 binary64))) (pow.f64 im #s(literal 4 binary64)))))))

eval61.0ms (2%)

Memory: 1.4MiB live, 143.7MiB allocated; 14ms collecting garbage
Compiler: Compiled 24 387 to 2 846 computations (88.3% saved)

prune22.0ms (0.7%)

Memory

-15.5MiB live, 78.5MiB allocated; 5ms collecting garbage

Pruning

18 alts after pruning (8 fresh and 10 done)

	Pruned	Kept	Total
New	530	5	535
Fresh	0	3	3
Picked	3	2	5
Done	0	8	8
Total	533	18	551

Accuracy

99.8%

Counts

551 → 18

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	99.0%	(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
	0.0%	(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re)))) (log.f64 #s(literal 1/10 binary64)))
✓	0.0%	(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 im)))) (log.f64 #s(literal 1/10 binary64)))
✓	10.5%	(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re))) (log.f64 #s(literal 1/10 binary64)))
✓	98.7%	(/.f64 (neg.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) im))) (log.f64 #s(literal 1/10 binary64)))
✓	99.1%	(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
	33.0%	(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (exp.f64 #s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (*.f64 (neg.f64 (log.f64 im)) #s(literal -2 binary64)))))) (log.f64 #s(literal 10 binary64)))
	3.2%	(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (exp.f64 #s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (*.f64 #s(literal -2 binary64) (neg.f64 (log.f64 re))))))) (log.f64 #s(literal 10 binary64)))
	3.2%	(/.f64 (log.f64 (/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (exp.f64 #s(approx (* (log (+ (- (pow im 4) (pow (* im re) 2)) (pow re 4))) 1/2) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal -2 binary64))))))) (log.f64 #s(literal 10 binary64)))
	0.0%	(/.f64 (log.f64 (/.f64 #s(approx (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (neg.f64 (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(approx (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))) (pow.f64 im #s(literal 4 binary64)))))) (log.f64 #s(literal 10 binary64)))
✓	0.0%	(/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) (neg.f64 re))) (log.f64 #s(literal 10 binary64)))
✓	10.5%	(/.f64 (log.f64 #s(approx (/ (sqrt (+ (* (pow re 3) (pow re 3)) (* (pow im 3) (pow im 3)))) (sqrt (+ (pow re 4) (- (pow im 4) (pow (* re im) 2))))) re)) (log.f64 #s(literal 10 binary64)))
✓	0.0%	(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))) (log.f64 #s(literal 10 binary64)))
✓	98.8%	(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
✓	3.0%	#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
	3.0%	#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (.f64 (pow.f64 (/.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (log.f64 #s(literal 1/10 binary64)) (.f64 (log.f64 #s(literal 10 binary64)) (neg.f64 (log.f64 re)))) (*.f64 (log.f64 #s(literal 10 binary64)) (log.f64 #s(literal 1/10 binary64)))))
	5.1%	#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (/.f64 #s(approx (+ (* (/ (* im im) (log 10)) 1/2) (/ (* (log re) (* re re)) (log 10))) (/.f64 (.f64 (.f64 (log.f64 re) re) re) (log.f64 #s(literal 10 binary64)))) (*.f64 re re))))
	2.5%	#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (/ 1/2 (log 10)) (* (/ im re) (/ im re))) (/ (log re) (log 10))) (.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (.f64 (.f64 im im) (log.f64 #s(literal 10 binary64))))) (.f64 im im))))

Compiler

Compiled 1 478 to 628 computations (57.5% saved)

regimes67.0ms (2.2%)

Memory

-1.6MiB live, 143.8MiB allocated; 16ms collecting garbage

Counts

29 → 1

Calls

Call 1

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

Outputs
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))

Calls

8 calls:

13.0ms	(log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))))
9.0ms	re
8.0ms	im
7.0ms	(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))
7.0ms	(/.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 #s(literal 10 binary64)))

Results

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

Compiler

Compiled 44 to 38 computations (13.6% saved)

regimes25.0ms (0.8%)

Memory

11.5MiB live, 58.9MiB allocated; 2ms collecting garbage

Accuracy

Total -63.2b remaining (-8259%)

Threshold costs -63.2b (-8259%)

Counts

10 → 1

Calls

Call 1

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

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

Calls

8 calls:

4.0ms	(/.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 #s(literal 10 binary64)))
3.0ms	im
3.0ms	re
3.0ms	(+.f64 (.f64 re re) (.f64 im im))
3.0ms	(log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))))

Results

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

Compiler

Compiled 44 to 38 computations (13.6% saved)

derivations54.0ms (1.8%)

Memory

14.5MiB live, 62.3MiB allocated; 0ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 21 to 14 computations (33.3% saved)

preprocess25.0ms (0.8%)

Memory: -39.1MiB live, 57.2MiB allocated; 6ms collecting garbage
Compiler: Compiled 192 to 156 computations (18.8% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze87.0ms (2.9%)

sample940.0ms (31%)

explain147.0ms (4.8%)

preprocess12.0ms (0.4%)

series15.0ms (0.5%)

rewrite294.0ms (9.7%)

eval28.0ms (0.9%)

prune10.0ms (0.3%)

series52.0ms (1.7%)

rewrite211.0ms (7%)

eval43.0ms (1.4%)

prune53.0ms (1.7%)

series152.0ms (5%)

rewrite240.0ms (7.9%)

eval40.0ms (1.3%)

prune18.0ms (0.6%)

series169.0ms (5.6%)

rewrite271.0ms (8.9%)

eval61.0ms (2%)

prune22.0ms (0.7%)

regimes67.0ms (2.2%)

regimes25.0ms (0.8%)

derivations54.0ms (1.8%)

preprocess25.0ms (0.8%)

end0.0ms (0%)

Profiling