Metrics for math.log/2 on complex, real part

start0.0ms (0%)

Memory: 0.3MiB live, 0.2MiB allocated; 0ms collecting garbage

analyze223.0ms (3.2%)

Memory

35.5MiB live, 274.9MiB allocated; 80ms 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%	49.9%	0.1%	0%	49.9%	0%	4
0%	0%	49.9%	0.1%	0%	49.9%	0%	5
0%	0%	49.9%	0.1%	0%	49.9%	0%	6
9.4%	4.7%	45.2%	0.1%	0%	49.9%	0%	7
17.2%	8.6%	41.3%	0.1%	0%	49.9%	0%	8
27.3%	13.7%	36.3%	0.1%	0%	49.9%	0%	9
41%	20.5%	29.4%	0.1%	0%	49.9%	0%	10
48.6%	24.3%	25.6%	0.1%	0%	49.9%	0%	11
57.1%	28.5%	21.4%	0.1%	0%	49.9%	0%	12

Compiler

Compiled 30 to 17 computations (43.3% saved)

sample1.7s (23.8%)

Memory

36.4MiB live, 2 583.5MiB allocated; 486ms collecting garbage

Samples

1.1s

8 256×

valid

Precisions

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

ival-log: 221.0ms (26.7% of total)

ival-mult: 185.0ms (22.3% of total)

ival-hypot: 181.0ms (21.9% of total)

ival-atan2: 98.0ms (11.8% of total)

ival-add: 79.0ms (9.5% of total)

ival-div: 46.0ms (5.6% of total)

ival-true: 6.0ms (0.7% of total)

exact: 6.0ms (0.7% of total)

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

adjust: 2.0ms (0.2% of total)

Bogosity

explain399.0ms (5.7%)

Memory

-15.7MiB live, 612.0MiB allocated; 103ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Example	Subexpression
126	-	-	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`
0	-	-	`(log.f64 base)`
0	-	-	`(*.f64 re re)`
0	-	-	`(atan2.f64 im re)`
0	-	-	`im`
0	-	-	`(+.f64 (.f64 re re) (.f64 im im))`
0	-	-	`re`
0	-	-	`(+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64)))`
0	-	-	`(+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64)))`
0	-	-	`(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))`
0	-	-	`#s(literal 0 binary64)`
0	-	-	`(*.f64 (atan2.f64 im re) #s(literal 0 binary64))`
0	-	-	`(*.f64 #s(literal 0 binary64) #s(literal 0 binary64))`
0	-	-	`(*.f64 (log.f64 base) (log.f64 base))`
0	-	-	`(.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im)))) (log.f64 base))`
0	-	-	`(*.f64 im im)`
0	-	-	`base`
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	110	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	110
↳	`(*.f64 re re)`	overflow	58
↳	`(*.f64 im im)`	overflow	66
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	uflow-rescue	16	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	16
↳	`(*.f64 re re)`	underflow	76
↳	`(*.f64 im im)`	underflow	66

Confusion

	Predicted +	Predicted -
+	126	0
-	0	130

Precision

1.0

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	126	0	0
-	0	0	130

Precision?

1.0

Recall?

1.0

Freqs

test

number	freq
0	130
1	126

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

119.0ms

512×

valid

Compiler

Compiled 270 to 58 computations (78.5% saved)

Precisions

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

ival-mult: 39.0ms (40.7% of total)

ival-atan2: 19.0ms (19.8% of total)

ival-log: 13.0ms (13.6% of total)

ival-hypot: 11.0ms (11.5% of total)

ival-add: 8.0ms (8.3% of total)

ival-div: 3.0ms (3.1% of total)

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

preprocess136.0ms (1.9%)

Memory

-10.2MiB live, 230.2MiB allocated; 17ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	79	209
1	236	189
2	1254	142
0	18	26
0	34	20
1	64	18
2	187	14
3	980	12
4	2597	12
5	5226	12
0	8120	7

Stop Event

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

Calls

Call 1

Inputs

(/.f64 (+.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 base)) (*.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (*.f64 (log.f64 base) (log.f64 base)) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))

Outputs

(/.f64 (+.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 base)) (*.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (*.f64 (log.f64 base) (log.f64 base)) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))

(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))

Symmetry

(abs re)

(abs im)

(sort re im)

Compiler

Compiled 28 to 18 computations (35.7% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	51.9%	(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))

Status

Accuracy

Program

▶

51.9%

(/.f64 (+.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 base)) (*.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (*.f64 (log.f64 base) (log.f64 base)) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))

Compiler

Compiled 28 to 18 computations (35.7% saved)

simplify169.0ms (2.4%)

Memory

33.9MiB live, 179.4MiB allocated; 12ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
cost-diff	2	(+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64)))
cost-diff	4	(*.f64 (atan2.f64 im re) #s(literal 0 binary64))
cost-diff	4	(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))
cost-diff	5	(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	18	113
0	34	95
1	64	93
2	187	89
3	980	87
4	2597	87
5	5226	85
0	8120	59

Stop Event

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

Calls

Call 1

Inputs
(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
(+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64)))
(.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im)))) (log.f64 base))
(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 base)
base
(*.f64 (atan2.f64 im re) #s(literal 0 binary64))
(atan2.f64 im re)
#s(literal 0 binary64)
(+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64)))
(*.f64 (log.f64 base) (log.f64 base))
(*.f64 #s(literal 0 binary64) #s(literal 0 binary64))

Outputs
(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))
(+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64)))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im)))) (log.f64 base))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))))
(log.f64 (hypot.f64 im re))
(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))
(hypot.f64 im re)
(+.f64 (.f64 re re) (.f64 im im))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
re
(*.f64 im im)
im
(log.f64 base)
base
(*.f64 (atan2.f64 im re) #s(literal 0 binary64))
#s(literal 0 binary64)
(atan2.f64 im re)
#s(literal 0 binary64)
(+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64)))
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(*.f64 (log.f64 base) (log.f64 base))
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(*.f64 #s(literal 0 binary64) #s(literal 0 binary64))
#s(literal 0 binary64)

localize133.0ms (1.9%)

Memory

-19.0MiB live, 171.8MiB allocated; 17ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.34375	(.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im)))) (log.f64 base))
accuracy	0.37337875976844204	(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
accuracy	0.5146675293053261	(*.f64 (log.f64 base) (log.f64 base))
accuracy	29.3392514545274	(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))

Samples

120.0ms

256×

valid

Compiler

Compiled 121 to 20 computations (83.5% saved)

Precisions

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

ival-add: 42.0ms (39.5% of total)

ival-mult: 29.0ms (27.3% of total)

ival-hypot: 26.0ms (24.4% of total)

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

ival-div: 2.0ms (1.9% of total)

ival-atan2: 2.0ms (1.9% of total)

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

series194.0ms (2.7%)

Memory

26.1MiB live, 282.9MiB allocated; 90ms collecting garbage

Counts

6 → 107

Calls

Call 1

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

Outputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#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 (* (atan2 im re) 0) #s(hole binary64 0))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* (log base) (log im))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log base) (log im))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#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 (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* (log base) (log re))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log base) (log re))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (* (log base) (log base)) #s(hole binary64 (pow (log base) 2)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (log base) (log base)) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log base) (log base)) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))

Calls

9 calls:

Time	Variable		Point	Expression
127.0ms	base	@	0	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (sqrt (+ (* re re) (* im im))) (* (atan2 im re) 0) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log base) (log base)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)))
24.0ms	base	@	-inf	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (sqrt (+ (* re re) (* im im))) (* (atan2 im re) 0) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log base) (log base)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)))
16.0ms	base	@	inf	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (sqrt (+ (* re re) (* im im))) (* (atan2 im re) 0) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log base) (log base)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)))
12.0ms	re	@	-inf	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (sqrt (+ (* re re) (* im im))) (* (atan2 im re) 0) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log base) (log base)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)))
3.0ms	im	@	0	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (sqrt (+ (* re re) (* im im))) (* (atan2 im re) 0) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log base) (log base)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)))

simplify247.0ms (3.5%)

Memory

20.7MiB live, 200.5MiB allocated; 59ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	419	4026
1	1081	3860
2	4757	3760
0	8937	3072

Stop Event

1×	iter limit
1×	node limit

Counts

107 → 107

Calls

Call 1

Inputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#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 (* (atan2 im re) 0) #s(hole binary64 0))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* (log base) (log im))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log base) (log im))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#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 (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* (log base) (log re))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log base) (log re))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (* (log base) (log base)) #s(hole binary64 (pow (log base) 2)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (log base) (log base)) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log base) (log base)) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))

Outputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) im) im) #s(literal 1/2 binary64) (log.f64 im)) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (/.f64 (fma.f64 (.f64 re (/.f64 re (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 im im))) (log.f64 base)) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 #s(literal 1/6 binary64) (.f64 re re)) (pow.f64 im #s(literal 6 binary64)))) (log.f64 base)) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) im) im) #s(literal 1/2 binary64) (log.f64 im)) (log.f64 base))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) 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))) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 re re) 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))) (fma.f64 (fma.f64 (.f64 re (/.f64 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))) #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 (+ (* re re) (* im im))) (fma.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 (.f64 re (/.f64 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)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (.f64 re re) im)))
#s(approx (* (atan2 im re) 0) #s(hole binary64 0))
#s(approx (* (atan2 im re) 0) #s(literal 0 binary64))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* (log base) (log im))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (log.f64 im) (log.f64 base)))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (log.f64 base) im))) (.f64 re re) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) (.f64 re re)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (log.f64 base)) (pow.f64 im #s(literal 4 binary64)))) (.f64 re re) (.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (log.f64 base) im))) (.f64 re re) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log base) (log im))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (log.f64 base) im))) (.f64 re re) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) (.f64 re re)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (log.f64 base)) (pow.f64 im #s(literal 4 binary64)))) (.f64 re re) (.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (log.f64 base) im))) (.f64 re re) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (*.f64 #s(literal 1 binary64) (log.f64 re)) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (.f64 #s(literal 1 binary64) (log.f64 re))) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (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 base)) (/.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (.f64 #s(literal 1 binary64) (log.f64 re))) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (.f64 #s(literal 1 binary64) (log.f64 re))) (log.f64 base)) (/.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (.f64 (.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/720 binary64)) (pow.f64 re #s(literal 6 binary64)))) (log.f64 base))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) 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))) (fma.f64 (.f64 re #s(literal 1/2 binary64)) (.f64 (/.f64 im re) (/.f64 im re)) re))
#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))) (.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) #s(literal 1 binary64))) re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (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))))) re re))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 (.f64 #s(literal 1 binary64) (log.f64 re)) (log.f64 base)))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (.f64 (log.f64 re) (log.f64 base)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+.f64 (fma.f64 (.f64 #s(literal 1/720 binary64) (log.f64 base)) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))))) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (*.f64 (log.f64 re) (log.f64 base)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 (.f64 #s(literal 1 binary64) (log.f64 re)) (log.f64 base)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (.f64 (log.f64 re) (log.f64 base)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+.f64 (fma.f64 (.f64 #s(literal 1/720 binary64) (log.f64 base)) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))))) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (*.f64 (log.f64 re) (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (fma.f64 (*.f64 (/.f64 im re) (/.f64 im re)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (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 base)) (/.f64 (fma.f64 (*.f64 (/.f64 im re) (/.f64 im re)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+.f64 (/.f64 (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64)))) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (log.f64 base)) (/.f64 (fma.f64 (*.f64 (/.f64 im re) (/.f64 im re)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))) (log.f64 base))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 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))) (.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))) #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))) (.f64 (neg.f64 re) (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) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (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))))) re re)))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 (.f64 #s(literal 1/720 binary64) (log.f64 base)) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64)))) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 (.f64 #s(literal 1/720 binary64) (log.f64 base)) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64)))) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (log.f64 re)) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (/.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 re re))) (log.f64 base)) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 #s(literal 1/6 binary64) (.f64 im im)) (pow.f64 re #s(literal 6 binary64)))) (log.f64 base)) (pow.f64 im #s(literal 4 binary64)) (/.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (log.f64 re)) (log.f64 base))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 im im) 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))) (fma.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) 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 (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (.f64 im (/.f64 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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* (log base) (log re))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (log.f64 re) (log.f64 base)))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (log.f64 base) re))) (.f64 im im) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) (.f64 im im)) (/.f64 (log.f64 base) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (log.f64 base)) (pow.f64 re #s(literal 4 binary64)))) (.f64 im im) (.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (log.f64 base) re))) (.f64 im im) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log base) (log re))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) re) re) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (log.f64 base) re))) (.f64 im im) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) (.f64 im im)) (/.f64 (log.f64 base) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (log.f64 base)) (pow.f64 re #s(literal 4 binary64)))) (.f64 im im) (.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (log.f64 base) re))) (.f64 im im) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (*.f64 #s(literal 1 binary64) (log.f64 im)) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (fma.f64 #s(literal 1 binary64) (log.f64 im) (.f64 (/.f64 (/.f64 (.f64 re re) im) im) #s(literal 1/2 binary64))) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (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 base)) (/.f64 (fma.f64 #s(literal 1 binary64) (log.f64 im) (.f64 (/.f64 (/.f64 (.f64 re re) im) im) #s(literal 1/2 binary64))) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (.f64 #s(literal 1 binary64) (log.f64 im))) (log.f64 base)) (/.f64 (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (/.f64 (/.f64 (.f64 re re) im) im) #s(literal 1/2 binary64))) (log.f64 base))))
#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))) (.f64 (fma.f64 (/.f64 (/.f64 (.f64 re re) im) im) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#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))) (.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 (/.f64 (.f64 re re) im) im) #s(literal 1/2 binary64) #s(literal 1 binary64))) im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (.f64 (/.f64 (/.f64 (.f64 re re) im) im) #s(literal 1/2 binary64)))) im im))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 (.f64 #s(literal 1 binary64) (log.f64 im)) (log.f64 base)))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (.f64 (log.f64 im) (log.f64 base)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+.f64 (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (.f64 (log.f64 im) (log.f64 base)))) (.f64 (.f64 #s(literal 1/720 binary64) (log.f64 base)) (*.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 (.f64 #s(literal 1 binary64) (log.f64 im)) (log.f64 base)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (.f64 (log.f64 im) (log.f64 base)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+.f64 (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (.f64 (log.f64 im) (log.f64 base)))) (.f64 (.f64 #s(literal 1/720 binary64) (log.f64 base)) (*.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) im) im) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)))) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) (.f64 im im)) (log.f64 base)) re) re (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)))) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)))) (log.f64 base)) (/.f64 (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (/.f64 (/.f64 (*.f64 re re) im) im) #s(literal 1/2 binary64))) (log.f64 base))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 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))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (/.f64 (.f64 re re) im) im) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#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))) (.f64 (neg.f64 im) (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 (/.f64 (.f64 re re) im) im) #s(literal 1/2 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (.f64 (/.f64 (/.f64 (.f64 re re) im) im) #s(literal 1/2 binary64)))) im im)))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 (.f64 #s(literal 1/720 binary64) (log.f64 base)) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 (.f64 #s(literal 1/720 binary64) (log.f64 base)) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (fma.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (/.f64 (/.f64 (log.f64 base) im) im) (.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (* (log base) (log base)) #s(hole binary64 (pow (log base) 2)))
#s(approx (* (log base) (log base)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (*.f64 #s(literal 1 binary64) (log.f64 base))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 (.f64 #s(literal 1 binary64) (log.f64 base)) (log.f64 (hypot.f64 im re))))
#s(approx (* (log base) (log base)) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (* (log base) (log base)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 (.f64 #s(literal 1 binary64) (log.f64 base)) (log.f64 (hypot.f64 im re))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) (log.f64 (hypot.f64 im re))))
#s(approx (* (log base) (log base)) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (* (log base) (log base)) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 2 binary64)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) (log.f64 (hypot.f64 im re))))

rewrite122.0ms (1.7%)

Memory

-29.1MiB live, 118.5MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	18	74
0	34	56
1	121	54
0	978	34

Stop Event

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

Counts

6 → 234

Calls

Call 1

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

Outputs
(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 6 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(*.f64 (/.f64 (log.f64 base) (neg.f64 (log.f64 base))) (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base))))
(*.f64 (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base))) (/.f64 (log.f64 base) (neg.f64 (log.f64 base))))
(*.f64 (/.f64 (log.f64 base) (fabs.f64 (log.f64 base))) (/.f64 (log.f64 (hypot.f64 im re)) (fabs.f64 (log.f64 base))))
(*.f64 (/.f64 (log.f64 (hypot.f64 im re)) (fabs.f64 (log.f64 base))) (/.f64 (log.f64 base) (fabs.f64 (log.f64 base))))
(*.f64 (/.f64 (log.f64 base) (log.f64 base)) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
(*.f64 (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) (/.f64 (log.f64 base) (log.f64 base)))
(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(*.f64 (log.f64 (hypot.f64 im re)) (/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (neg.f64 (log.f64 base))) (neg.f64 (log.f64 base)))
(/.f64 (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (fabs.f64 (log.f64 base))) (fabs.f64 (log.f64 base)))
(/.f64 (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (log.f64 base)) (log.f64 base))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) #s(literal 0 binary64)) (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 0 binary64)))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(/.f64 (neg.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))) (neg.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) (.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (neg.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))
(fma.f64 (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 6 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)) #s(literal 0 binary64))
(fma.f64 (/.f64 (log.f64 base) (neg.f64 (log.f64 base))) (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base))) #s(literal 0 binary64))
(fma.f64 (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base))) (/.f64 (log.f64 base) (neg.f64 (log.f64 base))) #s(literal 0 binary64))
(fma.f64 (/.f64 (log.f64 base) (fabs.f64 (log.f64 base))) (/.f64 (log.f64 (hypot.f64 im re)) (fabs.f64 (log.f64 base))) #s(literal 0 binary64))
(fma.f64 (/.f64 (log.f64 (hypot.f64 im re)) (fabs.f64 (log.f64 base))) (/.f64 (log.f64 base) (fabs.f64 (log.f64 base))) #s(literal 0 binary64))
(fma.f64 (/.f64 (log.f64 base) (log.f64 base)) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 0 binary64))
(fma.f64 (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) (/.f64 (log.f64 base) (log.f64 base)) #s(literal 0 binary64))
(fma.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 0 binary64))
(fma.f64 (log.f64 (hypot.f64 im re)) (/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 0 binary64))
(-.f64 (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 0 binary64))
(+.f64 (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 0 binary64))
(+.f64 #s(literal 0 binary64) (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(.f64 (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/4 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 im) (-.f64 re im))))
(/.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 re im) #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 (neg.f64 im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 (fabs.f64 im)))
(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 (neg.f64 re)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 (fabs.f64 re)))
(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 (neg.f64 re)) (pow.f64 im #s(literal 1 binary64)))
(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)) (pow.f64 im #s(literal 1 binary64)))
(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 (neg.f64 (neg.f64 im)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (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)) (pow.f64 re #s(literal 1 binary64)))
(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 (fabs.f64 (fabs.f64 re)) (pow.f64 im #s(literal 1 binary64)))
(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 (fabs.f64 (fabs.f64 im)) (pow.f64 re #s(literal 1 binary64)))
(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 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(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 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(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 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(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 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(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 im (pow.f64 re #s(literal 1 binary64)))
(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 (pow.f64 im #s(literal 1 binary64)))
(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)))
#s(literal 0 binary64)
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))))
(/.f64 (neg.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))) (neg.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))))
(/.f64 (neg.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64))) (neg.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))))
(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
(fma.f64 (log.f64 base) (log.f64 (hypot.f64 im re)) (*.f64 (neg.f64 (neg.f64 (atan2.f64 im re))) #s(literal 0 binary64)))
(fma.f64 (log.f64 base) (log.f64 (hypot.f64 im re)) (/.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))))
(fma.f64 (log.f64 base) (log.f64 (hypot.f64 im re)) #s(literal 0 binary64))
(fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) (*.f64 (neg.f64 (neg.f64 (atan2.f64 im re))) #s(literal 0 binary64)))
(fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) (/.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))))
(fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (hypot.f64 im re))))
(-.f64 #s(literal 0 binary64) (*.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 base)))
(-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (/.f64 #s(literal 0 binary64) (.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))))
(-.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))
(+.f64 #s(literal 0 binary64) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
(+.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (.f64 (neg.f64 (neg.f64 (atan2.f64 im re))) #s(literal 0 binary64)))
(+.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (/.f64 #s(literal 0 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))))
(+.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))
(log.f64 (pow.f64 (hypot.f64 im re) (log.f64 base)))
(log.f64 (pow.f64 base (log.f64 (hypot.f64 im re))))
(*.f64 (+.f64 (neg.f64 (log.f64 base)) #s(literal 0 binary64)) (-.f64 (neg.f64 (log.f64 base)) #s(literal 0 binary64)))
(*.f64 (+.f64 (fabs.f64 (log.f64 base)) #s(literal 0 binary64)) (-.f64 (fabs.f64 (log.f64 base)) #s(literal 0 binary64)))
(*.f64 (+.f64 (log.f64 base) #s(literal 0 binary64)) (-.f64 (log.f64 base) #s(literal 0 binary64)))
(*.f64 (pow.f64 (log.f64 base) #s(literal 1 binary64)) (pow.f64 (log.f64 base) #s(literal 1 binary64)))
(*.f64 (neg.f64 (neg.f64 (log.f64 base))) (neg.f64 (neg.f64 (log.f64 base))))
(*.f64 (neg.f64 (fabs.f64 (log.f64 base))) (neg.f64 (fabs.f64 (log.f64 base))))
(*.f64 (fabs.f64 (fabs.f64 (log.f64 base))) (fabs.f64 (fabs.f64 (log.f64 base))))
(*.f64 (neg.f64 (log.f64 base)) (neg.f64 (log.f64 base)))
(*.f64 (fabs.f64 (log.f64 base)) (fabs.f64 (log.f64 base)))
(*.f64 (log.f64 base) (log.f64 base))
(pow.f64 (neg.f64 (log.f64 base)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 (log.f64 base)) #s(literal 2 binary64))
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (-.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (neg.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64))) (neg.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (neg.f64 (pow.f64 (log.f64 base) #s(literal 6 binary64))) (neg.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(/.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(/.f64 (pow.f64 (log.f64 base) #s(literal 6 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(neg.f64 (neg.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(fma.f64 (+.f64 (neg.f64 (log.f64 base)) #s(literal 0 binary64)) (-.f64 (neg.f64 (log.f64 base)) #s(literal 0 binary64)) (/.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(fma.f64 (+.f64 (neg.f64 (log.f64 base)) #s(literal 0 binary64)) (-.f64 (neg.f64 (log.f64 base)) #s(literal 0 binary64)) #s(literal 0 binary64))
(fma.f64 (+.f64 (fabs.f64 (log.f64 base)) #s(literal 0 binary64)) (-.f64 (fabs.f64 (log.f64 base)) #s(literal 0 binary64)) (/.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(fma.f64 (+.f64 (fabs.f64 (log.f64 base)) #s(literal 0 binary64)) (-.f64 (fabs.f64 (log.f64 base)) #s(literal 0 binary64)) #s(literal 0 binary64))
(fma.f64 (+.f64 (log.f64 base) #s(literal 0 binary64)) (-.f64 (log.f64 base) #s(literal 0 binary64)) (/.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(fma.f64 (+.f64 (log.f64 base) #s(literal 0 binary64)) (-.f64 (log.f64 base) #s(literal 0 binary64)) #s(literal 0 binary64))
(fma.f64 (pow.f64 (log.f64 base) #s(literal 1 binary64)) (pow.f64 (log.f64 base) #s(literal 1 binary64)) (/.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(fma.f64 (pow.f64 (log.f64 base) #s(literal 1 binary64)) (pow.f64 (log.f64 base) #s(literal 1 binary64)) #s(literal 0 binary64))
(fma.f64 (neg.f64 (neg.f64 (log.f64 base))) (neg.f64 (neg.f64 (log.f64 base))) (/.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(fma.f64 (neg.f64 (neg.f64 (log.f64 base))) (neg.f64 (neg.f64 (log.f64 base))) #s(literal 0 binary64))
(fma.f64 (neg.f64 (fabs.f64 (log.f64 base))) (neg.f64 (fabs.f64 (log.f64 base))) (/.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(fma.f64 (neg.f64 (fabs.f64 (log.f64 base))) (neg.f64 (fabs.f64 (log.f64 base))) #s(literal 0 binary64))
(fma.f64 (fabs.f64 (fabs.f64 (log.f64 base))) (fabs.f64 (fabs.f64 (log.f64 base))) (/.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(fma.f64 (fabs.f64 (fabs.f64 (log.f64 base))) (fabs.f64 (fabs.f64 (log.f64 base))) #s(literal 0 binary64))
(fma.f64 (neg.f64 (log.f64 base)) (neg.f64 (log.f64 base)) (/.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(fma.f64 (neg.f64 (log.f64 base)) (neg.f64 (log.f64 base)) #s(literal 0 binary64))
(fma.f64 (fabs.f64 (log.f64 base)) (fabs.f64 (log.f64 base)) (/.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(fma.f64 (fabs.f64 (log.f64 base)) (fabs.f64 (log.f64 base)) #s(literal 0 binary64))
(fma.f64 (log.f64 base) (log.f64 base) (/.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(fma.f64 (log.f64 base) (log.f64 base) #s(literal 0 binary64))
(-.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) (neg.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(fabs.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))
(+.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (/.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(+.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))
(+.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(log.f64 (pow.f64 base (log.f64 base)))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))))
(/.f64 (neg.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))) (neg.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))))
(/.f64 (neg.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64))) (neg.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))))
(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
(fma.f64 (log.f64 base) (log.f64 (hypot.f64 im re)) (*.f64 (neg.f64 (neg.f64 (atan2.f64 im re))) #s(literal 0 binary64)))
(fma.f64 (log.f64 base) (log.f64 (hypot.f64 im re)) (/.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))))
(fma.f64 (log.f64 base) (log.f64 (hypot.f64 im re)) #s(literal 0 binary64))
(fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) (*.f64 (neg.f64 (neg.f64 (atan2.f64 im re))) #s(literal 0 binary64)))
(fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) (/.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))))
(fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (hypot.f64 im re))))
(-.f64 #s(literal 0 binary64) (*.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 base)))
(-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (/.f64 #s(literal 0 binary64) (.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))))
(-.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))
(+.f64 #s(literal 0 binary64) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
(+.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (.f64 (neg.f64 (neg.f64 (atan2.f64 im re))) #s(literal 0 binary64)))
(+.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (/.f64 #s(literal 0 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))))
(+.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))
(log.f64 (pow.f64 (hypot.f64 im re) (log.f64 base)))
(log.f64 (pow.f64 base (log.f64 (hypot.f64 im re))))

eval47.0ms (0.7%)

Memory: 21.7MiB live, 67.9MiB allocated; 3ms collecting garbage
Compiler: Compiled 9 200 to 1 295 computations (85.9% saved)

prune74.0ms (1%)

Memory

-40.2MiB live, 41.0MiB allocated; 81ms collecting garbage

Pruning

17 alts after pruning (17 fresh and 0 done)

	Pruned	Kept	Total
New	271	17	288
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	272	17	289

Accuracy

99.9%

Counts

289 → 17

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.1%	(/.f64 (fma.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
	99.0%	(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) (.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
▶	99.1%	(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
	99.0%	(/.f64 (/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	99.1%	(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 0 binary64)))))
	51.9%	(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 6 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	26.6%	(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (exp.f64 (.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64))) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	51.9%	(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) #s(approx ( (atan2 im re) 0) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	4.3%	(/.f64 (log.f64 (pow.f64 (hypot.f64 im re) (log.f64 base))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	98.8%	(/.f64 #s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 (log.f64 im) (log.f64 base))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	99.0%	(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 6 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
▶	99.1%	(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
	99.2%	(*.f64 (log.f64 (hypot.f64 im re)) (/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
▶	99.2%	(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
	94.0%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) im) im) #s(literal 1/2 binary64) (log.f64 im)) (log.f64 base)))
▶	99.4%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
▶	99.0%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))

Compiler

Compiled 928 to 582 computations (37.3% saved)

simplify90.0ms (1.3%)

Memory

7.8MiB live, 54.9MiB allocated; 5ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
cost-diff	0	(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))
cost-diff	3	(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
cost-diff	12	(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
cost-diff	0	(log.f64 base)
cost-diff	0	(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
cost-diff	0	(/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
cost-diff	3	(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
cost-diff	0	(log.f64 (hypot.f64 im re))
cost-diff	0	(/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
cost-diff	0	(log.f64 base)
cost-diff	5	(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
cost-diff	0	(log.f64 base)
cost-diff	0	(log.f64 im)
cost-diff	0	(/.f64 (log.f64 im) (log.f64 base))
cost-diff	0	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
cost-diff	0	(hypot.f64 im re)
cost-diff	0	(log.f64 (hypot.f64 im re))
cost-diff	0	(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))
cost-diff	0	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	38	259
0	56	215
1	106	211
2	339	199
3	2538	195
0	8357	195

Stop Event

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

Calls

Call 1

Inputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
im
re
(log.f64 base)
base
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
(/.f64 (log.f64 im) (log.f64 base))
(log.f64 im)
im
(log.f64 base)
base
(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(log.f64 base)
base
(/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
im
re
(pow.f64 (log.f64 base) #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(log.f64 base)
base
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
im
re
(pow.f64 (log.f64 base) #s(literal 4 binary64))
#s(literal 4 binary64)
(pow.f64 (log.f64 base) #s(literal 2 binary64))
#s(literal 2 binary64)
(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(log.f64 base)
base
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
im
re
#s(literal 2 binary64)
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(pow.f64 (log.f64 base) #s(literal 2 binary64))

Outputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
im
re
(log.f64 base)
base
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
(/.f64 (log.f64 im) (log.f64 base))
(log.f64 im)
im
(log.f64 base)
base
(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))
(log.f64 base)
base
(/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
im
re
(pow.f64 (log.f64 base) #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(*.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (log.f64 (hypot.f64 im re)))
(/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(log.f64 base)
base
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
im
re
(pow.f64 (log.f64 base) #s(literal 4 binary64))
#s(literal 4 binary64)
(pow.f64 (log.f64 base) #s(literal 2 binary64))
#s(literal 2 binary64)
(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))
(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(log.f64 base)
base
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
im
re
#s(literal 2 binary64)
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (hypot.f64 im re)))
(pow.f64 (log.f64 base) #s(literal 2 binary64))

localize112.0ms (1.6%)

Memory

8.8MiB live, 101.4MiB allocated; 5ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.34375	(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
accuracy	0.37890625	(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
accuracy	0.5146675293053261	(pow.f64 (log.f64 base) #s(literal 2 binary64))
accuracy	0.54296875	(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))
accuracy	0.3203125	(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
accuracy	0.34375	(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
accuracy	0.5146675293053261	(pow.f64 (log.f64 base) #s(literal 2 binary64))
accuracy	0.9241717774958697	(pow.f64 (log.f64 base) #s(literal 4 binary64))
accuracy	0.0	(log.f64 base)
accuracy	0.32650375976844204	(/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
accuracy	0.34765625	(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
accuracy	0.5146675293053261	(pow.f64 (log.f64 base) #s(literal 2 binary64))
accuracy	0.0	(log.f64 im)
accuracy	0.0	(log.f64 base)
accuracy	0.2584547494118337	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
accuracy	0.37890625	(/.f64 (log.f64 im) (log.f64 base))
accuracy	0.0	(log.f64 (hypot.f64 im re))
accuracy	0.0	(log.f64 base)
accuracy	0.0	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
accuracy	0.37890625	(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))

Samples

91.0ms

256×

valid

Compiler

Compiled 346 to 34 computations (90.2% saved)

Precisions

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

ival-mult: 30.0ms (44.1% of total)

ival-log: 9.0ms (13.2% of total)

ival-div: 8.0ms (11.8% of total)

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

ival-pow2: 4.0ms (5.9% of total)

ival-pow: 3.0ms (4.4% of total)

ival-add: 2.0ms (2.9% of total)

ival-atan2: 2.0ms (2.9% of total)

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

series283.0ms (4%)

Memory

19.8MiB live, 255.8MiB allocated; 31ms collecting garbage

Counts

18 → 333

Calls

Call 1

Inputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
(/.f64 (log.f64 im) (log.f64 base))
(log.f64 im)
(log.f64 base)
(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(pow.f64 (log.f64 base) #s(literal 4 binary64))

Outputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#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 base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log im) (pow (log base) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))) (/ (log im) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 2)))))) (/ (log im) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 2)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 2)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 2)))))) (/ (log im) (pow (log base) 2)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log im) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log im))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (pow (log base) 3) (pow im 2))))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (pow (log base) 3) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (pow (log base) 3) (pow im 4))) (* 1/6 (/ (* (pow re 2) (pow (log base) 3)) (pow im 6))))))) (* (pow (log base) 3) (log im)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log im) 2)) (/ (* (pow re 2) (* (pow (log base) 2) (log im))) (pow im 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4)))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (- (* 1/3 (/ (log im) (pow im 6))) (* 1/4 (/ 1 (pow im 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4))))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ 1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ 1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ -1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ -1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#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 im) (log base)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log re) (pow (log base) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))) (/ (log re) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 2)))))) (/ (log re) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 2)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 2)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 2)))))) (/ (log re) (pow (log base) 2)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log re) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log re))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log re))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (pow (log base) 3) (pow re 2))))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/2 (/ (pow (log base) 3) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (pow (log base) 3) (pow re 4))) (* 1/6 (/ (* (pow im 2) (pow (log base) 3)) (pow re 6))))))) (* (pow (log base) 3) (log re)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log re) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log re) 2)) (/ (* (pow im 2) (* (pow (log base) 2) (log re))) (pow re 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4)))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (- (* 1/3 (/ (log re) (pow re 6))) (* 1/4 (/ 1 (pow re 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4))))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 im) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ 1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ 1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 im) (log base)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log base))))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ -1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ -1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (log base) #s(hole binary64 (log base)))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 2))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 3))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log base) 2)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log base) 4)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log im) (log base)) #s(hole binary64 (* -1 (/ (log im) (log (/ 1 base))))))
#s(approx (log base) #s(hole binary64 (* -1 (log (/ 1 base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 2))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (log (/ 1 base)) 2))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log (/ 1 base)) 4)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log im) (log base)) #s(hole binary64 (/ (log im) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (log base) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 base))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 4)))

Calls

9 calls:

Time	Variable		Point	Expression
89.0ms	im	@	0	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log im) (log base)) (log im) (log base) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2) (pow (log base) 4))
74.0ms	base	@	0	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log im) (log base)) (log im) (log base) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2) (pow (log base) 4))
32.0ms	base	@	-inf	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log im) (log base)) (log im) (log base) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2) (pow (log base) 4))
28.0ms	im	@	-inf	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log im) (log base)) (log im) (log base) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2) (pow (log base) 4))
23.0ms	base	@	inf	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log im) (log base)) (log im) (log base) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2) (pow (log base) 4))

simplify219.0ms (3.1%)

Memory

-23.4MiB live, 253.9MiB allocated; 43ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1131	14100
1	2868	13748
0	8400	11473

Stop Event

1×	iter limit
1×	node limit

Counts

333 → 333

Calls

Call 1

Inputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#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 base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log im) (pow (log base) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))) (/ (log im) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 2)))))) (/ (log im) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 2)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 2)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 2)))))) (/ (log im) (pow (log base) 2)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log im) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log im))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (pow (log base) 3) (pow im 2))))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (pow (log base) 3) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (pow (log base) 3) (pow im 4))) (* 1/6 (/ (* (pow re 2) (pow (log base) 3)) (pow im 6))))))) (* (pow (log base) 3) (log im)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log im) 2)) (/ (* (pow re 2) (* (pow (log base) 2) (log im))) (pow im 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4)))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (- (* 1/3 (/ (log im) (pow im 6))) (* 1/4 (/ 1 (pow im 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4))))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ 1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ 1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ -1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ -1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#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 im) (log base)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log re) (pow (log base) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))) (/ (log re) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 2)))))) (/ (log re) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 2)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 2)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 2)))))) (/ (log re) (pow (log base) 2)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log re) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log re))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log re))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (pow (log base) 3) (pow re 2))))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/2 (/ (pow (log base) 3) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (pow (log base) 3) (pow re 4))) (* 1/6 (/ (* (pow im 2) (pow (log base) 3)) (pow re 6))))))) (* (pow (log base) 3) (log re)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log re) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log re) 2)) (/ (* (pow im 2) (* (pow (log base) 2) (log re))) (pow re 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4)))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (- (* 1/3 (/ (log re) (pow re 6))) (* 1/4 (/ 1 (pow re 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4))))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 im) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ 1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ 1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 im) (log base)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log base))))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ -1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ -1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (log base) #s(hole binary64 (log base)))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 2))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 3))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log base) 2)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log base) 4)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log im) (log base)) #s(hole binary64 (* -1 (/ (log im) (log (/ 1 base))))))
#s(approx (log base) #s(hole binary64 (* -1 (log (/ 1 base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 2))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (log (/ 1 base)) 2))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log (/ 1 base)) 4)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log im) (log base)) #s(hole binary64 (/ (log im) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (log base) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 base))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 4)))

Outputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 base))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 base))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 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)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (log.f64 im)))
#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)))) (fma.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) (.f64 im im))) (*.f64 re re) (log.f64 im)))
#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 (log (sqrt (+ (* im im) (* re re)))) (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 #s(literal 1/2 binary64) (.f64 im im))) (.f64 re re) (log.f64 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) 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))) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 re re) 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))) (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 (+ (* 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 (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 3 binary64)))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 base))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log im) (pow (log base) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))) (/ (log im) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 2)))))) (/ (log im) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 2)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 2)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 2)))))) (/ (log im) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 base))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log im) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log im))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (fma.f64 (/.f64 (/.f64 (log.f64 base) im) im) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64))) (.f64 re re) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/6 binary64) (/.f64 (.f64 (log.f64 base) #s(literal -1/4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (.f64 re re) (.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (log.f64 base) im))) (.f64 re re) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 base))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im)))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (pow (log base) 3) (pow im 2))))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) im) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 re re)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64))) (.f64 re re) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (pow (log base) 3) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (pow (log base) 3) (pow im 4))) (* 1/6 (/ (* (pow re 2) (pow (log base) 3)) (pow im 6))))))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 re re)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/6 binary64) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) #s(literal -1/4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (.f64 re re) (.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im))) (.f64 re re) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log im) 2)) (/ (* (pow re 2) (* (pow (log base) 2) (log im))) (pow im 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) im) (/.f64 (log.f64 im) im)) (.f64 re re) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4)))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (fma.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) im) (/.f64 (log.f64 im) im) (.f64 (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (log.f64 im) #s(literal 1/4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re))) (.f64 re re) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (- (* 1/3 (/ (log im) (pow im 6))) (* 1/4 (/ 1 (pow im 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4))))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (fma.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) im) (/.f64 (log.f64 im) im) (.f64 (fma.f64 (.f64 (fma.f64 (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/3 binary64) (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (log.f64 im) #s(literal 1/4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 re re))) (.f64 re re) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 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)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (log.f64 re)))
#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)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (log.f64 re))))
#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 (log (sqrt (+ (* im im) (* re re)))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (pow.f64 re #s(literal 6 binary64)))) (log.f64 re))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) 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))) (.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) #s(literal 1 binary64)) re))
#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))) (fma.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 4 binary64)))) re re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 4 binary64))))) re re))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 2 binary64))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 2 binary64))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64) (.f64 (log.f64 re) (log.f64 base)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (log.f64 re) (log.f64 base) (fma.f64 (.f64 (log.f64 base) (/.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) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64) (*.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (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 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64) (.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (/.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) (fma.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ 1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (neg.f64 (log.f64 re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im)) (.f64 (neg.f64 re) re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 im) im) (/.f64 (.f64 (neg.f64 (log.f64 re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 4 binary64))) (neg.f64 (log.f64 re)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 re) #s(literal 2 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ 1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 im) im) (/.f64 (.f64 (neg.f64 (log.f64 re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re)) (fma.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 (log.f64 re) (log.f64 re) (/.f64 (fma.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (neg.f64 (log.f64 re))) #s(literal -1/360 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal -1/4 binary64))) (pow.f64 re #s(literal 6 binary64)))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 4 binary64))) (neg.f64 (log.f64 re)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) #s(literal -1 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 base)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) #s(literal -1 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 base)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) 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)))) (fma.f64 (*.f64 (/.f64 im re) (/.f64 im re)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#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)))) (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 im re) (/.f64 im re)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#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 (log (sqrt (+ (* im im) (* re re)))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 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) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 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))) (.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 (+ (* 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))) (.f64 (neg.f64 re) (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) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 4 binary64))))) re re)))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) #s(literal -1 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 base)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 (/.f64 im re) (/.f64 im re)) (*.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) #s(literal -1 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 base)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (/.f64 im re) (/.f64 im re)) (*.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (*.f64 im im) re)) #s(literal 1/2 binary64))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 (.f64 (log.f64 base) (/.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) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) #s(literal -1 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 base)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (*.f64 im im) re)) #s(literal 1/2 binary64))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (/.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) (fma.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ -1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im)) (.f64 (neg.f64 re) re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 im) im) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 (/.f64 #s(literal -1 binary64) re)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ -1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 im) im) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re)) (fma.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64))) #s(literal -1/360 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal -1/4 binary64))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 (/.f64 #s(literal -1 binary64) re)) (*.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)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 base))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 base))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 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)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (log.f64 re)))
#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)))) (fma.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) (.f64 re re))) (*.f64 im im) (log.f64 re)))
#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 (log (sqrt (+ (* im im) (* re re)))) (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 #s(literal 1/2 binary64) (.f64 re re))) (.f64 im im) (log.f64 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 im im) 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))) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (sqrt (+ (* im im) (* re re))) #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 (+ (* im im) (* re re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (/ (log im) (log base)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (log im) (log base)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (log im) (log.f64 im))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 base))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log re) (pow (log base) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))) (/ (log re) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 2)))))) (/ (log re) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 2)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 2)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 2)))))) (/ (log re) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 base))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log re) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log re))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (fma.f64 (/.f64 (/.f64 (log.f64 base) re) re) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64))) (.f64 im im) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/6 binary64) (/.f64 (.f64 (log.f64 base) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (.f64 im im) (.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (log.f64 base) re))) (.f64 im im) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 base))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log re))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64) (*.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (pow (log base) 3) (pow re 2))))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) re) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 im im)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64))) (.f64 im im) (*.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/2 (/ (pow (log base) 3) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (pow (log base) 3) (pow re 4))) (* 1/6 (/ (* (pow im 2) (pow (log base) 3)) (pow re 6))))))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 im im)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/6 binary64) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (.f64 im im) (.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re))) (.f64 im im) (*.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log re) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log re) 2)) (/ (* (pow im 2) (* (pow (log base) 2) (log re))) (pow re 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (/.f64 (log.f64 re) re) (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) re)) (.f64 im im) (*.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4)))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (fma.f64 (/.f64 (log.f64 re) re) (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) re) (.f64 (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (log.f64 re) #s(literal 1/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im))) (.f64 im im) (*.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (- (* 1/3 (/ (log re) (pow re 6))) (* 1/4 (/ 1 (pow re 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4))))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (fma.f64 (/.f64 (log.f64 re) re) (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) re) (.f64 (fma.f64 (.f64 (fma.f64 (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/3 binary64) (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (log.f64 re) #s(literal 1/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 im im))) (.f64 im im) (*.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 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)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (log.f64 im)))
#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)))) (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) (log.f64 im))))
#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 (log (sqrt (+ (* im im) (* re re)))) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (.f64 re re) im) (/.f64 (.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (pow.f64 im #s(literal 6 binary64)))) (log.f64 im))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (.f64 re re) im) #s(literal 1 binary64)) im))
#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))) (.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) #s(literal 1 binary64))) im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (.f64 re re) im) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/8 binary64)) (pow.f64 im #s(literal 4 binary64))))) im im))
#s(approx (/ (log im) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (log im) (log base)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log im) (log.f64 im))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 2 binary64))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 im #s(literal 6 binary64))))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 2 binary64))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 im #s(literal 6 binary64))))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (fma.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64) (.f64 (log.f64 im) (log.f64 base)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (log.f64 im) (log.f64 base) (fma.f64 (.f64 (log.f64 base) (/.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) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im)))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (fma.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im) (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (/.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) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ 1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re)) (.f64 (neg.f64 im) im))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 re) re) (/.f64 (.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 4 binary64))) (neg.f64 (log.f64 im)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64))) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 im) #s(literal 2 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ 1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 re) re) (/.f64 (.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im)) (fma.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 (log.f64 im) (log.f64 im) (/.f64 (fma.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (neg.f64 (log.f64 im))) #s(literal -1/360 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal -1/4 binary64))) (pow.f64 im #s(literal 6 binary64)))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 4 binary64))) (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (pow.f64 im #s(literal 4 binary64))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (log.f64 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (log.f64 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) 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)))) (fma.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#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)))) (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 re im) (/.f64 re im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))))
#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 (log (sqrt (+ (* im im) (* re re)))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 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) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (.f64 re re) im) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 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))) (.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 (+ (* 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))) (.f64 (neg.f64 im) (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) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (.f64 re re) im) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/8 binary64)) (pow.f64 im #s(literal 4 binary64))))) im im)))
#s(approx (/ (log im) (log base)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log base))))
#s(approx (/ (log im) (log base)) (/.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (log.f64 base)))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
#s(approx (log im) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (log.f64 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 im #s(literal 6 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 (/.f64 re im) (/.f64 re im)) (*.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (log.f64 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 im #s(literal 6 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (/.f64 re im) (/.f64 re im)) (*.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (*.f64 re re) im)) #s(literal 1/2 binary64))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 (.f64 (log.f64 base) (/.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) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (log.f64 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (*.f64 re re) im)) #s(literal 1/2 binary64))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (/.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) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ -1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re)) (.f64 (neg.f64 im) im))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 re) re) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 (/.f64 #s(literal -1 binary64) im)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64))) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ -1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 re) re) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im)) (fma.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64))) #s(literal -1/360 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal -1/4 binary64))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64))) (pow.f64 im #s(literal 4 binary64))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (log base) #s(hole binary64 (log base)))
#s(approx (log base) (log.f64 base))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (hypot.f64 im re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log base) 2)))
#s(approx (pow (log base) 2) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log base) 4)))
#s(approx (pow (log base) 4) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (log im) (log base)) #s(hole binary64 (* -1 (/ (log im) (log (/ 1 base))))))
#s(approx (/ (log im) (log base)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (log base) #s(hole binary64 (* -1 (log (/ 1 base)))))
#s(approx (log base) (log.f64 base))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (neg.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))) (log.f64 (hypot.f64 im re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (log (/ 1 base)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (pow (log base) 2) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log (/ 1 base)) 4)))
#s(approx (pow (log base) 4) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 4 binary64)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 im re)) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 (hypot.f64 im re)) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (/ (log im) (log base)) #s(hole binary64 (/ (log im) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log im) (log base)) (/.f64 (log.f64 im) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (log base) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 base))))))
#s(approx (log base) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 im re)) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 2 binary64))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 im re)) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 3 binary64))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) (log.f64 (hypot.f64 im re))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 im re)) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 3 binary64)) (log.f64 (hypot.f64 im re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 2 binary64)) (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (pow (log base) 2) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 2 binary64)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 4)))
#s(approx (pow (log base) 4) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 4 binary64)))

rewrite36.0ms (0.5%)

Memory

15.4MiB live, 61.7MiB allocated; 4ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	38	197
0	56	173
0	205	171

Stop Event

1×	iter limit
1×	iter limit
1×	iter limit
1×	unsound
1×	iter limit

Counts

18 → 73

Calls

Call 1

Inputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
(/.f64 (log.f64 im) (log.f64 base))
(log.f64 im)
(log.f64 base)
(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(pow.f64 (log.f64 base) #s(literal 4 binary64))

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

eval99.0ms (1.4%)

Memory: 11.9MiB live, 118.1MiB allocated; 21ms collecting garbage
Compiler: Compiled 28 516 to 2 073 computations (92.7% saved)

prune41.0ms (0.6%)

Memory

-42.9MiB live, 102.9MiB allocated; 15ms collecting garbage

Pruning

19 alts after pruning (17 fresh and 2 done)

	Pruned	Kept	Total
New	682	11	693
Fresh	6	6	12
Picked	3	2	5
Done	0	0	0
Total	691	19	710

Accuracy

100.0%

Counts

710 → 19

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.0%	(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) (.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
	98.7%	(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (.f64 (.f64 (log.f64 base) (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
	99.1%	(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 0 binary64)))))
	99.1%	(/.f64 (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
	4.3%	(/.f64 (log.f64 (pow.f64 (hypot.f64 im re) (log.f64 base))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
▶	98.6%	(/.f64 #s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
	98.8%	(/.f64 #s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 (log.f64 im) (log.f64 base))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	99.0%	(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 6 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
	99.1%	(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)) #s(literal 0 binary64)) (-.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))))
	98.7%	(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
▶	99.2%	(.f64 (.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
▶	99.2%	(*.f64 (log.f64 (hypot.f64 im re)) (/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
	49.8%	(.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (exp.f64 (.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))))
	51.9%	(.f64 (log.f64 base) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (.f64 re re)))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
	98.8%	(.f64 (log.f64 base) (/.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
▶	98.9%	(.f64 #s(approx (/ ( (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
✓	99.4%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
▶	52.0%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base)))
✓	99.0%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))

Compiler

Compiled 932 to 601 computations (35.5% saved)

simplify145.0ms (2.1%)

Memory

30.3MiB live, 122.9MiB allocated; 7ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
cost-diff	0	#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
cost-diff	0	(/.f64 #s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
cost-diff	3	(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
cost-diff	0	(/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
cost-diff	0	(log.f64 base)
cost-diff	0	(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
cost-diff	3	(.f64 (.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
cost-diff	0	(log.f64 im)
cost-diff	0	(/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))
cost-diff	0	#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
cost-diff	0	(.f64 #s(approx (/ ( (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
cost-diff	0	(log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))))
cost-diff	0	(/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base))
cost-diff	0	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base)))
cost-diff	4	(sqrt.f64 (fma.f64 im im (*.f64 re re)))
cost-diff	0	(hypot.f64 im re)
cost-diff	0	(log.f64 (hypot.f64 im re))
cost-diff	2	(*.f64 (log.f64 (hypot.f64 im re)) (/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
cost-diff	3	(/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64)))

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	55	328
0	83	321
1	140	310
2	445	298
3	2618	292
4	6231	292
0	8045	292

Stop Event

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

Calls

Call 1

Inputs
(*.f64 (log.f64 (hypot.f64 im re)) (/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
im
re
(/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(log.f64 base)
base
(pow.f64 (log.f64 base) #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base)))
(/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base))
(log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
im
(*.f64 re re)
re
(log.f64 base)
base
(.f64 #s(approx (/ ( (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
(/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))
(log.f64 im)
im
(pow.f64 (log.f64 base) #s(literal 3 binary64))
(log.f64 base)
base
#s(literal 3 binary64)
(pow.f64 (log.f64 base) #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 (.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(log.f64 base)
base
(/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
im
re
(pow.f64 (log.f64 base) #s(literal 4 binary64))
#s(literal 4 binary64)
(pow.f64 (log.f64 base) #s(literal 2 binary64))
#s(literal 2 binary64)
(/.f64 #s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(pow.f64 (log.f64 im) #s(literal 2 binary64))
(log.f64 im)
im
#s(literal 2 binary64)
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(log.f64 base)
base
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
re

Outputs
(*.f64 (log.f64 (hypot.f64 im re)) (/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base))
(log.f64 (hypot.f64 im re))
(log.f64 (hypot.f64 re im))
(hypot.f64 im re)
(hypot.f64 re im)
im
re
(/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (log.f64 base))
(log.f64 base)
base
(pow.f64 (log.f64 base) #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
(/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base))
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base))
(log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(log.f64 (hypot.f64 re im))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 re im)
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 im im))
im
(*.f64 re re)
re
(log.f64 base)
base
(.f64 #s(approx (/ ( (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
(/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))
(log.f64 im)
im
(pow.f64 (log.f64 base) #s(literal 3 binary64))
(log.f64 base)
base
#s(literal 3 binary64)
(pow.f64 (log.f64 base) #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 (.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(*.f64 (/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 3 binary64)))
(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(*.f64 (/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (log.f64 base))
(log.f64 base)
base
(/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(log.f64 (hypot.f64 im re))
(log.f64 (hypot.f64 re im))
(hypot.f64 im re)
(hypot.f64 re im)
im
re
(pow.f64 (log.f64 base) #s(literal 4 binary64))
#s(literal 4 binary64)
(pow.f64 (log.f64 base) #s(literal 2 binary64))
#s(literal 2 binary64)
(/.f64 #s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(/.f64 (/.f64 #s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (log.f64 (hypot.f64 re im)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(pow.f64 (log.f64 im) #s(literal 2 binary64))
(log.f64 im)
im
#s(literal 2 binary64)
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(log.f64 base)
base
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (hypot.f64 re im)))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 re im)))
(log.f64 (hypot.f64 im re))
(log.f64 (hypot.f64 re im))
(hypot.f64 im re)
(hypot.f64 re im)
re

localize172.0ms (2.4%)

Memory

-18.3MiB live, 218.7MiB allocated; 20ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.34375	(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
accuracy	0.37890625	(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
accuracy	0.5146675293053261	(pow.f64 (log.f64 base) #s(literal 2 binary64))
accuracy	0.5638275390737681	(pow.f64 (log.f64 im) #s(literal 2 binary64))
accuracy	0.3203125	(.f64 (.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
accuracy	0.3359375	(/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
accuracy	0.5146675293053261	(pow.f64 (log.f64 base) #s(literal 2 binary64))
accuracy	0.9241717774958697	(pow.f64 (log.f64 base) #s(literal 4 binary64))
accuracy	0.3203125	(.f64 #s(approx (/ ( (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
accuracy	0.38509750976844204	(/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))
accuracy	0.5146675293053261	(pow.f64 (log.f64 base) #s(literal 2 binary64))
accuracy	0.7039415039794927	(pow.f64 (log.f64 base) #s(literal 3 binary64))
accuracy	0.0	(log.f64 base)
accuracy	0.0	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base)))
accuracy	0.37890625	(/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base))
accuracy	29.3392514545274	(sqrt.f64 (fma.f64 im im (*.f64 re re)))
accuracy	0.0	(log.f64 base)
accuracy	0.309257519536884	(/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
accuracy	0.31478500976844204	(*.f64 (log.f64 (hypot.f64 im re)) (/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
accuracy	0.5146675293053261	(pow.f64 (log.f64 base) #s(literal 2 binary64))

Samples

124.0ms

256×

valid

Compiler

Compiled 389 to 44 computations (88.7% saved)

Precisions

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

ival-log: 37.0ms (37.6% of total)

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

ival-pow: 15.0ms (15.2% of total)

ival-div: 9.0ms (9.1% of total)

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

ival-pow2: 7.0ms (7.1% of total)

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

ival-atan2: 2.0ms (2% of total)

exact: 1.0ms (1% of total)

adjust: 0.0ms (0% of total)

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

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

series159.0ms (2.2%)

Memory

19.1MiB live, 310.0MiB allocated; 33ms collecting garbage

Counts

25 → 401

Calls

Call 1

Inputs
(/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(*.f64 (log.f64 (hypot.f64 im re)) (/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base)))
(/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base))
(log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(.f64 #s(approx (/ ( (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
(/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))
(log.f64 im)
(.f64 (.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(log.f64 base)
(/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(/.f64 #s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(pow.f64 (log.f64 base) #s(literal 3 binary64))
(pow.f64 (log.f64 base) #s(literal 4 binary64))
(pow.f64 (log.f64 im) #s(literal 2 binary64))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))

Outputs
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log im) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (/ (log im) (pow (log base) 3))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))) (/ (log im) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log im) (pow (log base) 4))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))) (/ (log im) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 4)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 4)))))) (/ (log im) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 4)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 4)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 4)))))) (/ (log im) (pow (log base) 4)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (pow (log base) 3) (pow im 2))))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (pow (log base) 3) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (pow (log base) 3) (pow im 4))) (* 1/6 (/ (* (pow re 2) (pow (log base) 3)) (pow im 6))))))) (* (pow (log base) 3) (log im)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log im) 2)) (/ (* (pow re 2) (* (pow (log base) 2) (log im))) (pow im 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4)))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (- (* 1/3 (/ (log im) (pow im 6))) (* 1/4 (/ 1 (pow im 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4))))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log im))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 4))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 4))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 4)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 4))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 4)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 4)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ 1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ 1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 4))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 4))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 4)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 4))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 4)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 4)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ -1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ -1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log re) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (/ (log im) (pow (log base) 3))))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (/ (log re) (pow (log base) 3))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))) (/ (log re) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log re) (pow (log base) 4))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))) (/ (log re) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 4)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 4)))))) (/ (log re) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 4)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 4)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 4)))))) (/ (log re) (pow (log base) 4)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log re))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (pow (log base) 3) (pow re 2))))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/2 (/ (pow (log base) 3) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (pow (log base) 3) (pow re 4))) (* 1/6 (/ (* (pow im 2) (pow (log base) 3)) (pow re 6))))))) (* (pow (log base) 3) (log re)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log re) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log re) 2)) (/ (* (pow im 2) (* (pow (log base) 2) (log re))) (pow re 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4)))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (- (* 1/3 (/ (log re) (pow re 6))) (* 1/4 (/ 1 (pow re 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4))))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (log im) 2)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log re))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 3)))))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 4))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 4))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 4))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 4)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ 1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ 1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4)))))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (log (/ 1 im)) 2)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (pow (log base) 3))))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 4))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 4))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 4))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 4)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ -1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ -1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4)))))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 2) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (/ (log base) (pow (log base) 2)) #s(hole binary64 (/ 1 (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 3))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 3))))
#s(approx (log base) #s(hole binary64 (log base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 4))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log base) 2)))
#s(approx (pow (log base) 3) #s(hole binary64 (pow (log base) 3)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log base) 4)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (/ (log base) (pow (log base) 2)) #s(hole binary64 (/ -1 (log (/ 1 base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (* -1 (/ (log im) (pow (log (/ 1 base)) 3)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (log base) #s(hole binary64 (* -1 (log (/ 1 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 4))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (log (/ 1 base)) 2))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log im) 2) (pow (log (/ 1 base)) 2))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (pow (log base) 3) #s(hole binary64 (* -1 (pow (log (/ 1 base)) 3))))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log (/ 1 base)) 4)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log base) (pow (log base) 2)) #s(hole binary64 (/ 1 (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (/ (log im) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (log base) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 4))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log im) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (pow (log base) 3) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 4)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))

Calls

9 calls:

Time	Variable		Point	Expression
32.0ms	base	@	inf	((/ (log base) (pow (log base) 2)) (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (sqrt (+ (* im im) (* re re))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (log (sqrt (+ (* im im) (* re re)))) (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/ (log im) (pow (log base) 3)) (log im) (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (pow (log im) 2) (pow (log base) 2)) (pow (log base) 2) (pow (log base) 3) (pow (log base) 4) (pow (log im) 2) (* (log base) (log (sqrt (+ (* im im) (* re re))))))
27.0ms	base	@	-inf	((/ (log base) (pow (log base) 2)) (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (sqrt (+ (* im im) (* re re))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (log (sqrt (+ (* im im) (* re re)))) (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/ (log im) (pow (log base) 3)) (log im) (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (pow (log im) 2) (pow (log base) 2)) (pow (log base) 2) (pow (log base) 3) (pow (log base) 4) (pow (log im) 2) (* (log base) (log (sqrt (+ (* im im) (* re re))))))
24.0ms	base	@	0	((/ (log base) (pow (log base) 2)) (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (sqrt (+ (* im im) (* re re))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (log (sqrt (+ (* im im) (* re re)))) (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/ (log im) (pow (log base) 3)) (log im) (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (pow (log im) 2) (pow (log base) 2)) (pow (log base) 2) (pow (log base) 3) (pow (log base) 4) (pow (log im) 2) (* (log base) (log (sqrt (+ (* im im) (* re re))))))
21.0ms	im	@	0	((/ (log base) (pow (log base) 2)) (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (sqrt (+ (* im im) (* re re))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (log (sqrt (+ (* im im) (* re re)))) (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/ (log im) (pow (log base) 3)) (log im) (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (pow (log im) 2) (pow (log base) 2)) (pow (log base) 2) (pow (log base) 3) (pow (log base) 4) (pow (log im) 2) (* (log base) (log (sqrt (+ (* im im) (* re re))))))
19.0ms	im	@	-inf	((/ (log base) (pow (log base) 2)) (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (sqrt (+ (* im im) (* re re))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (log (sqrt (+ (* im im) (* re re)))) (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/ (log im) (pow (log base) 3)) (log im) (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (pow (log im) 2) (pow (log base) 2)) (pow (log base) 2) (pow (log base) 3) (pow (log base) 4) (pow (log im) 2) (* (log base) (log (sqrt (+ (* im im) (* re re))))))

simplify239.0ms (3.4%)

Memory

-21.6MiB live, 310.0MiB allocated; 35ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1211	16815
1	2962	16532
0	8704	13893

Stop Event

1×	iter limit
1×	node limit

Counts

401 → 401

Calls

Call 1

Inputs
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log im) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (/ (log im) (pow (log base) 3))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))) (/ (log im) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log im) (pow (log base) 4))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))) (/ (log im) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 4)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 4)))))) (/ (log im) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 4)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 4)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 4)))))) (/ (log im) (pow (log base) 4)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (pow (log base) 3) (pow im 2))))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (pow (log base) 3) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (pow (log base) 3) (pow im 4))) (* 1/6 (/ (* (pow re 2) (pow (log base) 3)) (pow im 6))))))) (* (pow (log base) 3) (log im)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log im) 2)) (/ (* (pow re 2) (* (pow (log base) 2) (log im))) (pow im 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4)))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (- (* 1/3 (/ (log im) (pow im 6))) (* 1/4 (/ 1 (pow im 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4))))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log im))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 4))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 4))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 4)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 4))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 4)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 4)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ 1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ 1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 4))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 4))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 4)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 4))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 4)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 4)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ -1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ -1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log re) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (/ (log im) (pow (log base) 3))))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (/ (log re) (pow (log base) 3))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))) (/ (log re) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log re) (pow (log base) 4))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))) (/ (log re) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 4)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 4)))))) (/ (log re) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 4)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 4)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 4)))))) (/ (log re) (pow (log base) 4)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log re))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (pow (log base) 3) (pow re 2))))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/2 (/ (pow (log base) 3) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (pow (log base) 3) (pow re 4))) (* 1/6 (/ (* (pow im 2) (pow (log base) 3)) (pow re 6))))))) (* (pow (log base) 3) (log re)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log re) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log re) 2)) (/ (* (pow im 2) (* (pow (log base) 2) (log re))) (pow re 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4)))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (- (* 1/3 (/ (log re) (pow re 6))) (* 1/4 (/ 1 (pow re 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4))))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (log im) 2)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log re))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 3)))))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 4))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 4))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 4))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 4)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ 1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ 1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4)))))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (log (/ 1 im)) 2)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (pow (log base) 3))))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 3)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 4))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 4))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 4))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 4)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ -1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ -1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4)))))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 2) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (/ (log base) (pow (log base) 2)) #s(hole binary64 (/ 1 (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 3))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 3))))
#s(approx (log base) #s(hole binary64 (log base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 4))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log base) 2)))
#s(approx (pow (log base) 3) #s(hole binary64 (pow (log base) 3)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log base) 4)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (/ (log base) (pow (log base) 2)) #s(hole binary64 (/ -1 (log (/ 1 base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (* -1 (/ (log im) (pow (log (/ 1 base)) 3)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (log base) #s(hole binary64 (* -1 (log (/ 1 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 4))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (log (/ 1 base)) 2))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log im) 2) (pow (log (/ 1 base)) 2))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (pow (log base) 3) #s(hole binary64 (* -1 (pow (log (/ 1 base)) 3))))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log (/ 1 base)) 4)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log base) (pow (log base) 2)) #s(hole binary64 (/ 1 (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (/ (log im) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (log base) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 4))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log im) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (pow (log base) 3) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 4)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))

Outputs
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 re re) (log.f64 base)) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (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 base)) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 base))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 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)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (log.f64 im)))
#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)))) (fma.f64 (fma.f64 (.f64 re (/.f64 re (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 im im))) (*.f64 re re) (log.f64 im)))
#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 (log (sqrt (+ (* im im) (* re re)))) (fma.f64 (fma.f64 (fma.f64 (.f64 re (/.f64 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 #s(literal 1/2 binary64) (.f64 im im))) (.f64 re re) (log.f64 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) 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))) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 re re) 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))) (fma.f64 (fma.f64 (.f64 re (/.f64 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 (+ (* 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 (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (fma.f64 (.f64 re (/.f64 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 base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 re re) (log.f64 base)) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (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 base)) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 base))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 re re) (log.f64 base)) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (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 base)) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 base))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 re re) (log.f64 base)) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (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 base)) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 base))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log im) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re (/.f64 re (pow.f64 im #s(literal 4 binary64)))) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 re re) (log.f64 base)) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (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 base)) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 base))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (/ (log im) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re (/.f64 re (pow.f64 im #s(literal 4 binary64)))) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 3)))))) (/ (log im) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log im) (pow (log base) 4))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))) (/ (log im) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 4)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 4)))))) (/ (log im) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 re (/.f64 re (pow.f64 im #s(literal 4 binary64)))) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 4)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 4)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 4)))))) (/ (log im) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 4 binary64)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im)))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (pow (log base) 3) (pow im 2))))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) im) #s(literal 1/2 binary64) (.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 re (/.f64 re (pow.f64 im #s(literal 4 binary64))))) #s(literal -1/4 binary64))) (.f64 re re) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (pow (log base) 3) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (pow (log base) 3) (pow im 4))) (* 1/6 (/ (* (pow re 2) (pow (log base) 3)) (pow im 6))))))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 re (/.f64 re (pow.f64 im #s(literal 6 binary64))))) #s(literal 1/6 binary64) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) #s(literal -1/4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (.f64 re re) (.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im))) (.f64 re re) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 re re) (log.f64 base)) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (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 base)) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 base))) (.f64 re re) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 im im))) (.f64 re re) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log im) 2)) (/ (* (pow re 2) (* (pow (log base) 2) (log im))) (pow im 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (/.f64 (log.f64 im) im) im) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4)))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (fma.f64 (/.f64 (log.f64 im) im) (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) im) (.f64 (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (log.f64 im) #s(literal 1/4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re))) (.f64 re re) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (- (* 1/3 (/ (log im) (pow im 6))) (* 1/4 (/ 1 (pow im 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4))))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (fma.f64 (/.f64 (log.f64 im) im) (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) im) (.f64 (fma.f64 (.f64 (fma.f64 (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/3 binary64) (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (log.f64 im) #s(literal 1/4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 re re))) (.f64 re re) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log im))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (fma.f64 (/.f64 (/.f64 (log.f64 base) im) im) #s(literal 1/2 binary64) (.f64 (.f64 (log.f64 base) (.f64 re (/.f64 re (pow.f64 im #s(literal 4 binary64))))) #s(literal -1/4 binary64))) (.f64 re re) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (log.f64 base) (.f64 re (/.f64 re (pow.f64 im #s(literal 6 binary64))))) #s(literal 1/6 binary64) (/.f64 (.f64 (log.f64 base) #s(literal -1/4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (.f64 re re) (.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (log.f64 base) im))) (.f64 re re) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 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)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (log.f64 re)))
#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)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (log.f64 re))))
#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 (log (sqrt (+ (* im im) (* re re)))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (pow.f64 re #s(literal 6 binary64)))) (log.f64 re))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) 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))) (.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) #s(literal 1 binary64)) re))
#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))) (fma.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 4 binary64)))) re re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 4 binary64))))) re re))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64)))))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64)))))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 4))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 4))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 4)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 4 binary64))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 4))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 4)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 4)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64)))))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 4 binary64))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64) (*.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (/.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 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64) (.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1/720 binary64) (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ 1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (neg.f64 (log.f64 re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im)) (.f64 (neg.f64 re) re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 im) im) (/.f64 (.f64 (neg.f64 (log.f64 re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 4 binary64))) (neg.f64 (log.f64 re)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 re) #s(literal 2 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ 1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 im) im) (/.f64 (.f64 (neg.f64 (log.f64 re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re)) (fma.f64 (fma.f64 (.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (neg.f64 (log.f64 re))) #s(literal -1/360 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal -1/4 binary64))) (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 4 binary64))) (neg.f64 (log.f64 re)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 re) #s(literal 2 binary64)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (.f64 (log.f64 base) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (fma.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64) (.f64 (log.f64 re) (log.f64 base)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (log.f64 re) (log.f64 base) (fma.f64 (.f64 (log.f64 base) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1/720 binary64) (fma.f64 (.f64 (log.f64 base) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) #s(literal -1 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 base)) (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 base)) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) 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)))) (fma.f64 (*.f64 (/.f64 im re) (/.f64 im re)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#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)))) (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 im re) (/.f64 im re)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#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 (log (sqrt (+ (* im im) (* re re)))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 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))) (.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 (+ (* 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))) (.f64 (neg.f64 re) (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) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (.f64 im im) re) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/8 binary64)) (pow.f64 re #s(literal 4 binary64))))) re re)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) #s(literal -1 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 base)) (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 base)) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) #s(literal -1 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 base)) (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 base)) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) #s(literal -1 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 base)) (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 base)) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (/.f64 #s(literal -1 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (/.f64 im re) (/.f64 im re)) (*.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) #s(literal -1 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 base)) (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 base)) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 3))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (/.f64 #s(literal -1 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (/.f64 im re) (/.f64 im re)) (*.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 4))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 4))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 4)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 4))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 4)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 4)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (/.f64 #s(literal -1 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 (/.f64 im re) (/.f64 im re)) (*.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (*.f64 im im) re)) #s(literal 1/2 binary64))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1/720 binary64) (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (neg.f64 (log.f64 base))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) #s(literal -1 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 base)) (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 base)) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ -1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im)) (.f64 (neg.f64 re) re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 im) im) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 (/.f64 #s(literal -1 binary64) re)) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ -1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 im) im) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re)) (fma.f64 (fma.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64))) #s(literal -1/360 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal -1/4 binary64))) (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 4 binary64))) (log.f64 (/.f64 #s(literal -1 binary64) re)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (*.f64 im im) re)) #s(literal 1/2 binary64))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 (.f64 (log.f64 base) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 (.f64 (log.f64 base) (.f64 (pow.f64 im #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1/720 binary64) (fma.f64 (.f64 (log.f64 base) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 im im) (log.f64 base)) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (.f64 im (/.f64 im (pow.f64 re #s(literal 6 binary64)))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 base))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 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)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (log.f64 re)))
#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)))) (fma.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 4 binary64)))) #s(literal -1/4 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 re re))) (*.f64 im im) (log.f64 re)))
#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 (log (sqrt (+ (* im im) (* re re)))) (fma.f64 (fma.f64 (fma.f64 (.f64 im (/.f64 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 #s(literal 1/2 binary64) (.f64 re re))) (.f64 im im) (log.f64 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 im im) 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))) (fma.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) 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 (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (fma.f64 (.f64 im (/.f64 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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 im im) (log.f64 base)) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (.f64 im (/.f64 im (pow.f64 re #s(literal 6 binary64)))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 base))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 im im) (log.f64 base)) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (.f64 im (/.f64 im (pow.f64 re #s(literal 6 binary64)))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 base))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 im im) (log.f64 base)) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (.f64 im (/.f64 im (pow.f64 re #s(literal 6 binary64)))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 base))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log re) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im (/.f64 im (pow.f64 re #s(literal 4 binary64)))) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (/ (log im) (pow (log base) 3))))
#s(approx (/ (log im) (pow (log base) 3)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (log im) (log.f64 im))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 im im) (log.f64 base)) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (.f64 im (/.f64 im (pow.f64 re #s(literal 6 binary64)))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 base))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (/ (log re) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 3)))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 3)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im (/.f64 im (pow.f64 re #s(literal 4 binary64)))) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 3)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 3)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 3)))))) (/ (log re) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log re) (pow (log base) 4))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 4)))) (/ (log re) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 4)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 4)))))) (/ (log re) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 im (/.f64 im (pow.f64 re #s(literal 4 binary64)))) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 4)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 4)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 4)))))) (/ (log re) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 im (/.f64 im (pow.f64 re #s(literal 6 binary64)))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 4 binary64)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log re))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64) (*.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (pow (log base) 3) (pow re 2))))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re) re) #s(literal 1/2 binary64) (.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 im (/.f64 im (pow.f64 re #s(literal 4 binary64))))) #s(literal -1/4 binary64))) (.f64 im im) (*.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/2 (/ (pow (log base) 3) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (pow (log base) 3) (pow re 4))) (* 1/6 (/ (* (pow im 2) (pow (log base) 3)) (pow re 6))))))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 im (/.f64 im (pow.f64 re #s(literal 6 binary64))))) #s(literal 1/6 binary64) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (.f64 im im) (.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) re))) (.f64 im im) (*.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 im im) (log.f64 base)) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (log.f64 base)) (.f64 im (/.f64 im (pow.f64 re #s(literal 6 binary64)))) (/.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 base))) (.f64 im im) (/.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 re re))) (.f64 im im) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log re) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log re) 2)) (/ (* (pow im 2) (* (pow (log base) 2) (log re))) (pow re 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (/.f64 (log.f64 re) re) re) (*.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4)))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (fma.f64 (/.f64 (log.f64 re) re) (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) re) (.f64 (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (log.f64 re) #s(literal 1/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im))) (.f64 im im) (*.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (- (* 1/3 (/ (log re) (pow re 6))) (* 1/4 (/ 1 (pow re 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4))))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (fma.f64 (/.f64 (log.f64 re) re) (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) re) (.f64 (fma.f64 (.f64 (fma.f64 (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/3 binary64) (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (log.f64 re) #s(literal 1/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 im im))) (.f64 im im) (*.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (log im) 2)))
#s(approx (pow (log im) 2) (pow.f64 (log.f64 im) #s(literal 2 binary64)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log re))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (.f64 (/.f64 (log.f64 base) re) (/.f64 (.f64 im im) re)) #s(literal 1/2 binary64) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (fma.f64 (/.f64 (/.f64 (log.f64 base) re) re) #s(literal 1/2 binary64) (.f64 (.f64 (log.f64 base) (.f64 im (/.f64 im (pow.f64 re #s(literal 4 binary64))))) #s(literal -1/4 binary64))) (.f64 im im) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (log.f64 base) (.f64 im (/.f64 im (pow.f64 re #s(literal 6 binary64))))) #s(literal 1/6 binary64) (/.f64 (.f64 (log.f64 base) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (.f64 im im) (.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (log.f64 base) re))) (.f64 im im) (*.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 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)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (log.f64 im)))
#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)))) (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) (log.f64 im))))
#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 (log (sqrt (+ (* im im) (* re re)))) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (.f64 re re) im) (/.f64 (.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (pow.f64 im #s(literal 6 binary64)))) (log.f64 im))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (.f64 re re) im) #s(literal 1 binary64)) im))
#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))) (.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) #s(literal 1 binary64))) im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (.f64 re re) im) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/8 binary64)) (pow.f64 im #s(literal 4 binary64))))) im im))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 3)))))
#s(approx (/ (log im) (pow (log base) 3)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log im) (log.f64 im))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 4))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 4))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 4 binary64))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 4))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 4)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 4 binary64))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im)))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (fma.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im) (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1/720 binary64) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (log.f64 base)) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) #s(literal 1/720 binary64)) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ 1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re)) (.f64 (neg.f64 im) im))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 re) re) (/.f64 (.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 4 binary64))) (neg.f64 (log.f64 im)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64))) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 im) #s(literal 2 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ 1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 re) re) (/.f64 (.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im)) (fma.f64 (fma.f64 (.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (neg.f64 (log.f64 im))) #s(literal -1/360 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal -1/4 binary64))) (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 4 binary64))) (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64))) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 im) #s(literal 2 binary64)))))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (log (/ 1 im)) 2)))
#s(approx (pow (log im) 2) (pow.f64 (log.f64 im) #s(literal 2 binary64)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64) (*.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (fma.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64) (.f64 (log.f64 im) (log.f64 base)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (log.f64 im) (log.f64 base) (fma.f64 (.f64 (log.f64 base) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1/720 binary64) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (log.f64 base)) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) 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)))) (fma.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#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)))) (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 re im) (/.f64 re im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))))
#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 (log (sqrt (+ (* im im) (* re re)))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) #s(literal 1/720 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (.f64 re re) im) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 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))) (.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 (+ (* 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))) (.f64 (neg.f64 im) (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) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (.f64 re re) im) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/8 binary64)) (pow.f64 im #s(literal 4 binary64))))) im im)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (log.f64 base)) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (log.f64 base)) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (log.f64 base)) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (/.f64 #s(literal -1 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (/.f64 re im) (/.f64 re im)) (*.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))))))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (pow (log base) 3))))
#s(approx (/ (log im) (pow (log base) 3)) (/.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
#s(approx (log im) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base)))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (log.f64 base)) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 3))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 3)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 3)))))))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (/.f64 #s(literal -1 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 (/.f64 re im) (/.f64 re im)) (*.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 4)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 4))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 4))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 4))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 4)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 4)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (/.f64 #s(literal -1 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 (/.f64 re im) (/.f64 re im)) (*.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (*.f64 re re) im)) #s(literal 1/2 binary64))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (fma.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1/720 binary64) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (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 base)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (neg.f64 (log.f64 base))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/720 binary64) (log.f64 base)) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -1/4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ -1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 re re)) (.f64 (neg.f64 im) im))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 re) re) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 (/.f64 #s(literal -1 binary64) im)) (.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64))) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ -1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 (neg.f64 re) re) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 im im)) (fma.f64 (fma.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64))) #s(literal -1/360 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal -1/4 binary64))) (/.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal 1/4 binary64))) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)))))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 2) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) (*.f64 (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2)))
#s(approx (pow (log im) 2) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (*.f64 re re) im)) #s(literal 1/2 binary64))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (neg.f64 (log.f64 base)) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 (.f64 (log.f64 base) (.f64 (pow.f64 re #s(literal 6 binary64)) (/.f64 #s(literal 120 binary64) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1/720 binary64) (fma.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64)))) #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (log.f64 base) im) (/.f64 (.f64 re re) im)) #s(literal 1/2 binary64))))))
#s(approx (/ (log base) (pow (log base) 2)) #s(hole binary64 (/ 1 (log base))))
#s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base)))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (log base) #s(hole binary64 (log base)))
#s(approx (log base) (log.f64 base))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 4))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (hypot.f64 re im))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)) #s(literal 2 binary64)))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log base) 2)))
#s(approx (pow (log base) 2) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (pow (log base) 3) #s(hole binary64 (pow (log base) 3)))
#s(approx (pow (log base) 3) (pow.f64 (log.f64 base) #s(literal 3 binary64)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log base) 4)))
#s(approx (pow (log base) 4) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (/ (log base) (pow (log base) 2)) #s(hole binary64 (/ -1 (log (/ 1 base)))))
#s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base)))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (* -1 (/ (log im) (pow (log (/ 1 base)) 3)))))
#s(approx (/ (log im) (pow (log base) 3)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (log base) #s(hole binary64 (* -1 (log (/ 1 base)))))
#s(approx (log base) (log.f64 base))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 4))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 4 binary64))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (hypot.f64 re im))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (log (/ 1 base)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)) #s(literal 2 binary64)))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log im) 2) (pow (log (/ 1 base)) 2))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (pow (log base) 2) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (pow (log base) 3) #s(hole binary64 (* -1 (pow (log (/ 1 base)) 3))))
#s(approx (pow (log base) 3) (pow.f64 (log.f64 base) #s(literal 3 binary64)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log (/ 1 base)) 4)))
#s(approx (pow (log base) 4) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 4 binary64)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
#s(approx (/ (log base) (pow (log base) 2)) #s(hole binary64 (/ 1 (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 re im)) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 re im)) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (log base)) (/.f64 (log.f64 (hypot.f64 re im)) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (* (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 re im)) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 3 binary64))))
#s(approx (/ (log im) (pow (log base) 3)) #s(hole binary64 (/ (log im) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (/ (log im) (pow (log base) 3)) (/.f64 (log.f64 im) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 3 binary64))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 re im)) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 3 binary64))))
#s(approx (log base) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 base))))))
#s(approx (log base) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 4))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 4 binary64))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 3 binary64)) (log.f64 (hypot.f64 re im))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2))) (/.f64 (log.f64 (hypot.f64 re im)) (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 2 binary64)) (pow.f64 (log.f64 (hypot.f64 re im)) #s(literal 2 binary64))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log im) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (* (pow (log im) 2) (pow (log base) 2)) (*.f64 (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 2 binary64)) (pow.f64 (log.f64 im) #s(literal 2 binary64))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (pow (log base) 2) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 2 binary64)))
#s(approx (pow (log base) 3) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3)))
#s(approx (pow (log base) 3) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 3 binary64)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 4)))
#s(approx (pow (log base) 4) (pow.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) #s(literal 4 binary64)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) base))) (log.f64 (hypot.f64 re im))))

rewrite64.0ms (0.9%)

Memory

7.8MiB live, 52.8MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	55	263
0	83	245
0	252	244

Stop Event

1×	iter limit
1×	iter limit
1×	iter limit
1×	unsound
1×	iter limit

Counts

25 → 107

Calls

Call 1

Inputs
(/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(*.f64 (log.f64 (hypot.f64 im re)) (/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base)))
(/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base))
(log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(.f64 #s(approx (/ ( (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (/ (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
(/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))
(log.f64 im)
(.f64 (.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(*.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(log.f64 base)
(/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(/.f64 #s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(pow.f64 (log.f64 base) #s(literal 3 binary64))
(pow.f64 (log.f64 base) #s(literal 4 binary64))
(pow.f64 (log.f64 im) #s(literal 2 binary64))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))

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

eval93.0ms (1.3%)

Memory: 26.7MiB live, 115.3MiB allocated; 11ms collecting garbage
Compiler: Compiled 24 899 to 1 924 computations (92.3% saved)

prune29.0ms (0.4%)

Memory

9.8MiB live, 59.0MiB allocated; 15ms collecting garbage

Pruning

20 alts after pruning (16 fresh and 4 done)

	Pruned	Kept	Total
New	570	6	576
Fresh	2	10	12
Picked	3	2	5
Done	0	2	2
Total	575	20	595

Accuracy

100.0%

Counts

595 → 20

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.0%	(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) (.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
	98.7%	(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (.f64 (.f64 (log.f64 base) (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
	99.1%	(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (/.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 0 binary64)))))
▶	99.1%	(/.f64 (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
	4.3%	(/.f64 (log.f64 (pow.f64 (hypot.f64 im re) (log.f64 base))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	98.7%	(/.f64 #s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 (.f64 (log.f64 base) (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
	98.8%	(/.f64 #s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 (log.f64 im) (log.f64 base))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	99.0%	(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 6 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
	98.8%	(.f64 (.f64 (log.f64 base) (/.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
▶	99.3%	(*.f64 (log.f64 (hypot.f64 im re)) #s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base))))
	98.8%	(.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) (/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
▶	49.8%	(.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (exp.f64 (.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))))
	51.9%	(.f64 (log.f64 base) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (.f64 re re)))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
▶	98.8%	(.f64 (log.f64 base) (/.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
✓	98.9%	(.f64 #s(approx (/ ( (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
	98.7%	(.f64 #s(approx (/ ( (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (/.f64 (-.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)) #s(literal 0 binary64)) (-.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))))
	98.4%	(.f64 #s(approx (/ ( (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (/.f64 (+.f64 (pow.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)) (-.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))))))
✓	99.4%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
✓	52.0%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base)))
✓	99.0%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))

Compiler

Compiled 1 012 to 648 computations (36% saved)

simplify320.0ms (4.5%)

Memory

-4.1MiB live, 258.3MiB allocated; 94ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
cost-diff	0	(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64))
cost-diff	3	(.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
cost-diff	12	(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) (.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
cost-diff	0	(log.f64 base)
cost-diff	0	(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
cost-diff	0	(/.f64 (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
cost-diff	3	(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
cost-diff	0	(/.f64 (log.f64 (hypot.f64 im re)) (exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64))))
cost-diff	0	(log.f64 base)
cost-diff	2	(exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))
cost-diff	3	(.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (exp.f64 (.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))))
cost-diff	0	(log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))
cost-diff	0	(/.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
cost-diff	0	(log.f64 base)
cost-diff	3	(.f64 (log.f64 base) (/.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
cost-diff	0	#s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base)))
cost-diff	0	(hypot.f64 im re)
cost-diff	0	(log.f64 (hypot.f64 im re))
cost-diff	0	(*.f64 (log.f64 (hypot.f64 im re)) #s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base))))

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	38	282
0	61	264
1	107	258
2	304	243
3	2364	240
0	9240	240

Stop Event

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

Calls

Call 1

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

Outputs
(*.f64 (log.f64 (hypot.f64 im re)) #s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base))))
(*.f64 #s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base))) (log.f64 (hypot.f64 re im)))
(log.f64 (hypot.f64 im re))
(log.f64 (hypot.f64 re im))
(hypot.f64 im re)
(hypot.f64 re im)
im
re
#s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base)))
(/.f64 #s(literal 1 binary64) (log.f64 base))
#s(literal 1 binary64)
(log.f64 base)
base
(.f64 (log.f64 base) (/.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(.f64 (/.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) (log.f64 base)) #s(literal 1 binary64))
(log.f64 base)
base
(/.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))
#s(approx (sqrt (+ (* im im) (* re re))) im)
im
(pow.f64 (log.f64 base) #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (exp.f64 (.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))))
(*.f64 #s(literal 1 binary64) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
(log.f64 base)
base
(/.f64 (log.f64 (hypot.f64 im re)) (exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64))))
(/.f64 (log.f64 (hypot.f64 re im)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(log.f64 (hypot.f64 im re))
(log.f64 (hypot.f64 re im))
(hypot.f64 im re)
(hypot.f64 re im)
im
re
(exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(*.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64))
(log.f64 (log.f64 base))
#s(literal 2 binary64)
(/.f64 (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(/.f64 (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (hypot.f64 re im))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (hypot.f64 re im)))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 re im)))
(log.f64 base)
base
(log.f64 (hypot.f64 im re))
(log.f64 (hypot.f64 re im))
(hypot.f64 im re)
(hypot.f64 re im)
im
re
(pow.f64 (log.f64 base) #s(literal 2 binary64))
#s(literal 2 binary64)
(pow.f64 (log.f64 base) #s(literal 4 binary64))
#s(literal 4 binary64)
(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) (.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
(*.f64 #s(literal 1 binary64) (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)))
(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64))
(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 re im))) #s(literal 3 binary64))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 re im)))
(log.f64 base)
base
(log.f64 (hypot.f64 im re))
(log.f64 (hypot.f64 re im))
(hypot.f64 im re)
(hypot.f64 re im)
im
re
#s(literal 3 binary64)
(.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(*.f64 (pow.f64 (log.f64 (hypot.f64 re im)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))
(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 re im))) #s(literal 2 binary64))
#s(literal 2 binary64)
(pow.f64 (log.f64 base) #s(literal 2 binary64))

localize151.0ms (2.1%)

Memory

-14.5MiB live, 282.6MiB allocated; 70ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.1953125	(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
accuracy	0.2545700195368841	(pow.f64 (log.f64 base) #s(literal 2 binary64))
accuracy	0.29296875	(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))
accuracy	0.3366776367581883	(pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64))
accuracy	0.19140625	(/.f64 (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
accuracy	0.1953125	(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
accuracy	0.2545700195368841	(pow.f64 (log.f64 base) #s(literal 2 binary64))
accuracy	0.4663240235163767	(pow.f64 (log.f64 base) #s(literal 4 binary64))
accuracy	0.03125	(log.f64 (log.f64 base))
accuracy	0.16796875	(.f64 (log.f64 base) (/.f64 (log.f64 (hypot.f64 im re)) (exp.f64 (.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))))
accuracy	0.17416000976844204	(/.f64 (log.f64 (hypot.f64 im re)) (exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64))))
accuracy	0.8878571598871514	(exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))
accuracy	0.16796875	(.f64 (log.f64 base) (/.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
accuracy	0.17416000976844204	(/.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
accuracy	0.2545700195368841	(pow.f64 (log.f64 base) #s(literal 2 binary64))
accuracy	0.4058627745709392	#s(approx (sqrt (+ (* im im) (* re re))) im)
accuracy	0.0	(log.f64 base)
accuracy	0.0	#s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base)))
accuracy	0.15234375	(/.f64 #s(literal 1 binary64) (log.f64 base))
accuracy	0.15234375	(*.f64 (log.f64 (hypot.f64 im re)) #s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base))))

Samples

64.0ms	131×	0	valid
33.0ms	125×	0	invalid

Compiler

Compiled 386 to 31 computations (92% saved)

Precisions

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

ival-mult: 12.0ms (22.2% of total)

ival-pow2: 12.0ms (22.2% of total)

ival-div: 8.0ms (14.8% of total)

ival-log: 7.0ms (12.9% of total)

ival-pow: 7.0ms (12.9% of total)

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

ival-exp: 2.0ms (3.7% of total)

exact: 1.0ms (1.8% of total)

adjust: 0.0ms (0% of total)

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

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

series370.0ms (5.2%)

Memory

29.3MiB live, 407.6MiB allocated; 193ms collecting garbage

Counts

23 → 391

Calls

Call 1

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

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

Calls

9 calls:

Time	Variable		Point	Expression
86.0ms	base	@	-inf	((* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (log base) (pow (log base) 2)) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (log (sqrt (+ (* im im) (* re re)))) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) (exp (* (log (log base)) 2)) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (/ 1 (log base)) (sqrt (+ (* im im) (* re re))) (pow (log base) 2) (log (log base)) (pow (log base) 4) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2))
85.0ms	base	@	inf	((* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (log base) (pow (log base) 2)) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (log (sqrt (+ (* im im) (* re re)))) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) (exp (* (log (log base)) 2)) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (/ 1 (log base)) (sqrt (+ (* im im) (* re re))) (pow (log base) 2) (log (log base)) (pow (log base) 4) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2))
36.0ms	base	@	0	((* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (log base) (pow (log base) 2)) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (log (sqrt (+ (* im im) (* re re)))) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) (exp (* (log (log base)) 2)) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (/ 1 (log base)) (sqrt (+ (* im im) (* re re))) (pow (log base) 2) (log (log base)) (pow (log base) 4) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2))
7.0ms	im	@	inf	((* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (log base) (pow (log base) 2)) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (log (sqrt (+ (* im im) (* re re)))) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) (exp (* (log (log base)) 2)) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (/ 1 (log base)) (sqrt (+ (* im im) (* re re))) (pow (log base) 2) (log (log base)) (pow (log base) 4) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2))
4.0ms	re	@	inf	((* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (log base) (pow (log base) 2)) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) (log (sqrt (+ (* im im) (* re re)))) (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) (exp (* (log (log base)) 2)) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (/ 1 (log base)) (sqrt (+ (* im im) (* re re))) (pow (log base) 2) (log (log base)) (pow (log base) 4) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2))

simplify240.0ms (3.4%)

Memory

1.3MiB live, 322.6MiB allocated; 47ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1418	17893
1	3905	17769
0	8824	15120

Stop Event

1×	iter limit
1×	node limit

Counts

391 → 391

Calls

Call 1

Inputs
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#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 base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log im) (pow (log base) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))) (/ (log im) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 2)))))) (/ (log im) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 2)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 2)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 2)))))) (/ (log im) (pow (log base) 2)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (/ (log im) (pow (log base) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))) (/ (log im) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 2)))))) (/ (log im) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (pow (log base) 2)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 2)))))) (* 1/2 (/ 1 (* (pow im 2) (pow (log base) 2)))))) (/ (log im) (pow (log base) 2)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log im))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (pow (log base) 3) (pow im 2))))) (* (pow (log base) 3) (log im)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (pow (log base) 3) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (pow (log base) 3) (pow im 4))) (* 1/6 (/ (* (pow re 2) (pow (log base) 3)) (pow im 6))))))) (* (pow (log base) 3) (log im)))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log im))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* -1/4 (/ (* (pow re 2) (log base)) (pow im 4))) (* 1/2 (/ (log base) (pow im 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log im)) (* (pow re 2) (+ (* 1/2 (/ (log base) (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (log base) (pow im 4))) (* 1/6 (/ (* (pow re 2) (log base)) (pow im 6))))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log base)))) (* 1/4 (/ 1 (* (pow im 4) (log base)))))) (* 1/2 (/ 1 (* (pow im 2) (log base)))))) (/ (log im) (log base)))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 4) (pow (log im) 2))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* (pow (log base) 4) (pow (log im) 2)) (/ (* (pow re 2) (* (pow (log base) 4) (log im))) (pow im 2)))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 4) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4)))))) (/ (* (pow (log base) 4) (log im)) (pow im 2)))) (* (pow (log base) 4) (pow (log im) 2)))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 4) (- (* 1/3 (/ (log im) (pow im 6))) (* 1/4 (/ 1 (pow im 6)))))) (* (pow (log base) 4) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4))))))) (/ (* (pow (log base) 4) (log im)) (pow im 2)))) (* (pow (log base) 4) (pow (log im) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (* (pow (log base) 3) (pow (log im) 3))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* (pow re 2) (* (pow (log base) 3) (+ (* 1/2 (/ (pow (log im) 2) (pow im 2))) (/ (pow (log im) 2) (pow im 2))))) (* (pow (log base) 3) (pow (log im) 3)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 3) (+ (* -1/4 (/ (pow (log im) 2) (pow im 4))) (+ (* 1/2 (/ (log im) (pow im 4))) (* (log im) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4))))))))) (* (pow (log base) 3) (+ (* 1/2 (/ (pow (log im) 2) (pow im 2))) (/ (pow (log im) 2) (pow im 2)))))) (* (pow (log base) 3) (pow (log im) 3)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 3) (+ (* -1/4 (/ (log im) (pow im 6))) (+ (* 1/6 (/ (pow (log im) 2) (pow im 6))) (+ (* 1/2 (/ (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4)))) (pow im 2))) (* (log im) (- (* 1/3 (/ (log im) (pow im 6))) (* 1/4 (/ 1 (pow im 6)))))))))) (* (pow (log base) 3) (+ (* -1/4 (/ (pow (log im) 2) (pow im 4))) (+ (* 1/2 (/ (log im) (pow im 4))) (* (log im) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4)))))))))) (* (pow (log base) 3) (+ (* 1/2 (/ (pow (log im) 2) (pow im 2))) (/ (pow (log im) 2) (pow im 2)))))) (* (pow (log base) 3) (pow (log im) 3)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log im) 2)) (/ (* (pow re 2) (* (pow (log base) 2) (log im))) (pow im 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4)))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (+ (* (pow re 2) (* (pow (log base) 2) (- (* 1/3 (/ (log im) (pow im 6))) (* 1/4 (/ 1 (pow im 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4))))))) (/ (* (pow (log base) 2) (log im)) (pow im 2)))) (* (pow (log base) 2) (pow (log im) 2)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 4) (pow (log (/ 1 re)) 2))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 4) (log (/ 1 re)))) (pow re 2))) (* (pow (log base) 4) (pow (log (/ 1 re)) 2)))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 4) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 4) (pow (log (/ 1 re)) 2)) (/ (* (pow (log base) 4) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4))))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 4) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 4) (pow (log (/ 1 re)) 2)) (+ (/ (* (pow (log base) 4) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ 1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 4) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (* -1 (* (pow (log base) 3) (pow (log (/ 1 re)) 3)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (pow (log (/ 1 re)) 3))) (/ (* (pow (log base) 3) (+ (* 1/2 (* (pow im 2) (pow (log (/ 1 re)) 2))) (* (pow im 2) (pow (log (/ 1 re)) 2)))) (pow re 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (pow (log (/ 1 re)) 3))) (+ (/ (* (pow (log base) 3) (+ (* -1 (* (log (/ 1 re)) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re))))))) (+ (* -1/2 (* (pow im 4) (log (/ 1 re)))) (* -1/4 (* (pow im 4) (pow (log (/ 1 re)) 2)))))) (pow re 4)) (/ (* (pow (log base) 3) (+ (* 1/2 (* (pow im 2) (pow (log (/ 1 re)) 2))) (* (pow im 2) (pow (log (/ 1 re)) 2)))) (pow re 2))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (pow (log (/ 1 re)) 3))) (+ (/ (* (pow (log base) 3) (+ (* -1 (* (log (/ 1 re)) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ 1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))))))) (+ (* 1/720 (* (pow (log (/ 1 re)) 2) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))) (+ (* 1/4 (* (pow im 6) (log (/ 1 re)))) (* 1/2 (* (pow im 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re))))))))))) (pow re 6)) (+ (/ (* (pow (log base) 3) (+ (* -1 (* (log (/ 1 re)) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re))))))) (+ (* -1/2 (* (pow im 4) (log (/ 1 re)))) (* -1/4 (* (pow im 4) (pow (log (/ 1 re)) 2)))))) (pow re 4)) (/ (* (pow (log base) 3) (+ (* 1/2 (* (pow im 2) (pow (log (/ 1 re)) 2))) (* (pow im 2) (pow (log (/ 1 re)) 2)))) (pow re 2)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ 1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ 1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ 1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#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 base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (pow (log base) 2))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (pow (log base) 2)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 re))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (pow (log base) 3)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (+ (* -1/4 (/ (* (pow im 4) (log base)) (pow re 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log base))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log base)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))))))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 4) (pow (log (/ -1 re)) 2))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 4) (log (/ -1 re)))) (pow re 2))) (* (pow (log base) 4) (pow (log (/ -1 re)) 2)))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 4) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 4) (pow (log (/ -1 re)) 2)) (/ (* (pow (log base) 4) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4))))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 4) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 4) (pow (log (/ -1 re)) 2)) (+ (/ (* (pow (log base) 4) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ -1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 4) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (* -1 (* (pow (log base) 3) (pow (log (/ -1 re)) 3)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (pow (log (/ -1 re)) 3))) (/ (* (pow (log base) 3) (+ (* 1/2 (* (pow im 2) (pow (log (/ -1 re)) 2))) (* (pow im 2) (pow (log (/ -1 re)) 2)))) (pow re 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (pow (log (/ -1 re)) 3))) (+ (/ (* (pow (log base) 3) (+ (* -1 (* (log (/ -1 re)) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re))))))) (+ (* -1/2 (* (pow im 4) (log (/ -1 re)))) (* -1/4 (* (pow im 4) (pow (log (/ -1 re)) 2)))))) (pow re 4)) (/ (* (pow (log base) 3) (+ (* 1/2 (* (pow im 2) (pow (log (/ -1 re)) 2))) (* (pow im 2) (pow (log (/ -1 re)) 2)))) (pow re 2))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (pow (log (/ -1 re)) 3))) (+ (/ (* (pow (log base) 3) (+ (* -1 (* (log (/ -1 re)) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ -1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))))))) (+ (* 1/720 (* (pow (log (/ -1 re)) 2) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))) (+ (* 1/4 (* (pow im 6) (log (/ -1 re)))) (* 1/2 (* (pow im 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re))))))))))) (pow re 6)) (+ (/ (* (pow (log base) 3) (+ (* -1 (* (log (/ -1 re)) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re))))))) (+ (* -1/2 (* (pow im 4) (log (/ -1 re)))) (* -1/4 (* (pow im 4) (pow (log (/ -1 re)) 2)))))) (pow re 4)) (/ (* (pow (log base) 3) (+ (* 1/2 (* (pow im 2) (pow (log (/ -1 re)) 2))) (* (pow im 2) (pow (log (/ -1 re)) 2)))) (pow re 2)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 re)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (* (pow (log base) 2) (pow (log (/ -1 re)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (* (pow (log base) 2) (log (/ -1 re)))) (pow re 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 re)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ -1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#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 base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log re) (pow (log base) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))) (/ (log re) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 2)))))) (/ (log re) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 2)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 2)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 2)))))) (/ (log re) (pow (log base) 2)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (/ (log re) (pow (log base) 2))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (pow (log base) 2)))) (/ (log re) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (pow (log base) 2)))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 2)))))) (/ (log re) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (pow (log base) 2)))) (* 1/4 (/ 1 (* (pow re 4) (pow (log base) 2)))))) (* 1/2 (/ 1 (* (pow re 2) (pow (log base) 2)))))) (/ (log re) (pow (log base) 2)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log re))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (pow (log base) 3)) (pow re 2))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (pow (log base) 3)) (pow re 4))) (* 1/2 (/ (pow (log base) 3) (pow re 2))))) (* (pow (log base) 3) (log re)))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/2 (/ (pow (log base) 3) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (pow (log base) 3) (pow re 4))) (* 1/6 (/ (* (pow im 2) (pow (log base) 3)) (pow re 6))))))) (* (pow (log base) 3) (log re)))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log re))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (log base)) (pow re 4))) (* 1/2 (/ (log base) (pow re 2))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* (log base) (log re)) (* (pow im 2) (+ (* 1/2 (/ (log base) (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (log base) (pow re 4))) (* 1/6 (/ (* (pow im 2) (log base)) (pow re 6))))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log base)))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log base)))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log base)))) (* 1/4 (/ 1 (* (pow re 4) (log base)))))) (* 1/2 (/ 1 (* (pow re 2) (log base)))))) (/ (log re) (log base)))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 4) (pow (log re) 2))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* (pow (log base) 4) (pow (log re) 2)) (/ (* (pow im 2) (* (pow (log base) 4) (log re))) (pow re 2)))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 4) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4)))))) (/ (* (pow (log base) 4) (log re)) (pow re 2)))) (* (pow (log base) 4) (pow (log re) 2)))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 4) (- (* 1/3 (/ (log re) (pow re 6))) (* 1/4 (/ 1 (pow re 6)))))) (* (pow (log base) 4) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4))))))) (/ (* (pow (log base) 4) (log re)) (pow re 2)))) (* (pow (log base) 4) (pow (log re) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (* (pow (log base) 3) (pow (log re) 3))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* (pow im 2) (* (pow (log base) 3) (+ (* 1/2 (/ (pow (log re) 2) (pow re 2))) (/ (pow (log re) 2) (pow re 2))))) (* (pow (log base) 3) (pow (log re) 3)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 3) (+ (* -1/4 (/ (pow (log re) 2) (pow re 4))) (+ (* 1/2 (/ (log re) (pow re 4))) (* (log re) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4))))))))) (* (pow (log base) 3) (+ (* 1/2 (/ (pow (log re) 2) (pow re 2))) (/ (pow (log re) 2) (pow re 2)))))) (* (pow (log base) 3) (pow (log re) 3)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 3) (+ (* -1/4 (/ (log re) (pow re 6))) (+ (* 1/6 (/ (pow (log re) 2) (pow re 6))) (+ (* 1/2 (/ (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4)))) (pow re 2))) (* (log re) (- (* 1/3 (/ (log re) (pow re 6))) (* 1/4 (/ 1 (pow re 6)))))))))) (* (pow (log base) 3) (+ (* -1/4 (/ (pow (log re) 2) (pow re 4))) (+ (* 1/2 (/ (log re) (pow re 4))) (* (log re) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4)))))))))) (* (pow (log base) 3) (+ (* 1/2 (/ (pow (log re) 2) (pow re 2))) (/ (pow (log re) 2) (pow re 2)))))) (* (pow (log base) 3) (pow (log re) 3)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log re) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow (log base) 2) (pow (log re) 2)) (/ (* (pow im 2) (* (pow (log base) 2) (log re))) (pow re 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4)))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (+ (* (pow im 2) (* (pow (log base) 2) (- (* 1/3 (/ (log re) (pow re 6))) (* 1/4 (/ 1 (pow re 6)))))) (* (pow (log base) 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4))))))) (/ (* (pow (log base) 2) (log re)) (pow re 2)))) (* (pow (log base) 2) (pow (log re) 2)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ 1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 4) (pow (log (/ 1 im)) 2))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 4) (log (/ 1 im)))) (pow im 2))) (* (pow (log base) 4) (pow (log (/ 1 im)) 2)))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 4) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 4) (pow (log (/ 1 im)) 2)) (/ (* (pow (log base) 4) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4))))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 4) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 4) (pow (log (/ 1 im)) 2)) (+ (/ (* (pow (log base) 4) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ 1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 4) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (* -1 (* (pow (log base) 3) (pow (log (/ 1 im)) 3)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (pow (log (/ 1 im)) 3))) (/ (* (pow (log base) 3) (+ (* 1/2 (* (pow re 2) (pow (log (/ 1 im)) 2))) (* (pow re 2) (pow (log (/ 1 im)) 2)))) (pow im 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (pow (log (/ 1 im)) 3))) (+ (/ (* (pow (log base) 3) (+ (* -1 (* (log (/ 1 im)) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im))))))) (+ (* -1/2 (* (pow re 4) (log (/ 1 im)))) (* -1/4 (* (pow re 4) (pow (log (/ 1 im)) 2)))))) (pow im 4)) (/ (* (pow (log base) 3) (+ (* 1/2 (* (pow re 2) (pow (log (/ 1 im)) 2))) (* (pow re 2) (pow (log (/ 1 im)) 2)))) (pow im 2))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (pow (log (/ 1 im)) 3))) (+ (/ (* (pow (log base) 3) (+ (* -1 (* (log (/ 1 im)) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ 1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))))))) (+ (* 1/720 (* (pow (log (/ 1 im)) 2) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))) (+ (* 1/4 (* (pow re 6) (log (/ 1 im)))) (* 1/2 (* (pow re 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im))))))))))) (pow im 6)) (+ (/ (* (pow (log base) 3) (+ (* -1 (* (log (/ 1 im)) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im))))))) (+ (* -1/2 (* (pow re 4) (log (/ 1 im)))) (* -1/4 (* (pow re 4) (pow (log (/ 1 im)) 2)))))) (pow im 4)) (/ (* (pow (log base) 3) (+ (* 1/2 (* (pow re 2) (pow (log (/ 1 im)) 2))) (* (pow re 2) (pow (log (/ 1 im)) 2)))) (pow im 2)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ 1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ 1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ 1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ 1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#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 base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (pow (log base) 2)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2))))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (pow (log base) 2))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (pow (log base) 2)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (pow (log base) 2)))))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (pow (log base) 3) (log (/ -1 im))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2)))))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (pow (log base) 3)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log base) 3) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (pow (log base) 3)) (pow im 2))))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (+ (* -1/4 (/ (* (pow re 4) (log base)) (pow im 4))) (+ (* 1/720 (/ (* (log base) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log base))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log base)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log base)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 4) (pow (log (/ -1 im)) 2))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 4) (log (/ -1 im)))) (pow im 2))) (* (pow (log base) 4) (pow (log (/ -1 im)) 2)))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 4) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 4) (pow (log (/ -1 im)) 2)) (/ (* (pow (log base) 4) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4))))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 4) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 4) (pow (log (/ -1 im)) 2)) (+ (/ (* (pow (log base) 4) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ -1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 4) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (* -1 (* (pow (log base) 3) (pow (log (/ -1 im)) 3)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (pow (log (/ -1 im)) 3))) (/ (* (pow (log base) 3) (+ (* 1/2 (* (pow re 2) (pow (log (/ -1 im)) 2))) (* (pow re 2) (pow (log (/ -1 im)) 2)))) (pow im 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (pow (log (/ -1 im)) 3))) (+ (/ (* (pow (log base) 3) (+ (* -1 (* (log (/ -1 im)) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im))))))) (+ (* -1/2 (* (pow re 4) (log (/ -1 im)))) (* -1/4 (* (pow re 4) (pow (log (/ -1 im)) 2)))))) (pow im 4)) (/ (* (pow (log base) 3) (+ (* 1/2 (* (pow re 2) (pow (log (/ -1 im)) 2))) (* (pow re 2) (pow (log (/ -1 im)) 2)))) (pow im 2))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (+ (* -1 (* (pow (log base) 3) (pow (log (/ -1 im)) 3))) (+ (/ (* (pow (log base) 3) (+ (* -1 (* (log (/ -1 im)) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ -1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))))))) (+ (* 1/720 (* (pow (log (/ -1 im)) 2) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))) (+ (* 1/4 (* (pow re 6) (log (/ -1 im)))) (* 1/2 (* (pow re 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im))))))))))) (pow im 6)) (+ (/ (* (pow (log base) 3) (+ (* -1 (* (log (/ -1 im)) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im))))))) (+ (* -1/2 (* (pow re 4) (log (/ -1 im)))) (* -1/4 (* (pow re 4) (pow (log (/ -1 im)) 2)))))) (pow im 4)) (/ (* (pow (log base) 3) (+ (* 1/2 (* (pow re 2) (pow (log (/ -1 im)) 2))) (* (pow re 2) (pow (log (/ -1 im)) 2)))) (pow im 2)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 im)) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (* (pow (log base) 2) (pow (log (/ -1 im)) 2)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (* (pow (log base) 2) (log (/ -1 im)))) (pow im 2))) (+ (* (pow (log base) 2) (pow (log (/ -1 im)) 2)) (+ (/ (* (pow (log base) 2) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ -1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6)) (/ (* (pow (log base) 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4)))))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (log base) (pow (log base) 2)) #s(hole binary64 (/ 1 (log base))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (log base) #s(hole binary64 (log base)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 2))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (exp (* (log (log base)) 2)) #s(hole binary64 (pow (log base) 2)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log base) 2))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 3) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log base) 4) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (* (pow (log base) 3) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 3))))
#s(approx (/ 1 (log base)) #s(hole binary64 (/ 1 (log base))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log base) 2)))
#s(approx (log (log base)) #s(hole binary64 (log (log base))))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log base) 4)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log base) 2) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (log base) (pow (log base) 2)) #s(hole binary64 (/ -1 (log (/ 1 base)))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (log base) #s(hole binary64 (* -1 (log (/ 1 base)))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 2))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (exp (* (log (log base)) 2)) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 2))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (log (/ 1 base)) 3)))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (* -1 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (log (/ 1 base)) 4))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (* -1 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 3) (pow (log (/ 1 base)) 3)))))
#s(approx (/ 1 (log base)) #s(hole binary64 (/ -1 (log (/ 1 base)))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (log (log base)) #s(hole binary64 (log (* -1 (log (/ 1 base))))))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log (/ 1 base)) 4)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (log (/ 1 base)) 2))))
#s(approx (* (log (sqrt (+ (* im im) (* re re)))) (/ (log base) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (log base) (pow (log base) 2)) #s(hole binary64 (/ 1 (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (log base) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 base))))))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (pow (log base) 2)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (* (log base) (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2)))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (exp (* (log (log base)) 2)) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (/ (log (sqrt (+ (* im im) (* re re)))) (exp (* (log (log base)) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (/ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (pow (log base) 4)) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (/ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 4))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 3) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3))))
#s(approx (/ 1 (log base)) #s(hole binary64 (/ 1 (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (log (log base)) #s(hole binary64 (log (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 4)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))

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

rewrite121.0ms (1.7%)

Memory

24.1MiB live, 122.9MiB allocated; 25ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	38	212
0	61	192
1	165	183
0	948	183

Stop Event

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

Counts

23 → 355

Calls

Call 1

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

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

eval322.0ms (4.6%)

Memory: -23.7MiB live, 448.6MiB allocated; 82ms collecting garbage
Compiler: Compiled 47 693 to 4 285 computations (91% saved)

prune52.0ms (0.7%)

Memory

-3.6MiB live, 145.6MiB allocated; 18ms collecting garbage

Pruning

23 alts after pruning (17 fresh and 6 done)

	Pruned	Kept	Total
New	1 403	11	1 414
Fresh	5	6	11
Picked	3	2	5
Done	0	4	4
Total	1 411	23	1 434

Accuracy

100.0%

Counts

1 434 → 23

Alt Table

Click to see full alt table

Status	Accuracy	Program
	98.3%	(/.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(approx ( (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow (log base) 2)) (*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))))
	98.7%	(/.f64 (.f64 (.f64 (log.f64 base) (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
	98.8%	(/.f64 (.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) (log.f64 base)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
	4.3%	(/.f64 (log.f64 (pow.f64 (hypot.f64 im re) (log.f64 base))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	98.8%	(/.f64 #s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 im))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
	99.2%	(.f64 (pow.f64 (log.f64 base) #s(literal -2 binary64)) (.f64 (log.f64 base) (log.f64 (hypot.f64 re im))))
	99.0%	(.f64 (/.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (log.f64 base) #s(literal 6 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
	98.8%	(.f64 (.f64 (log.f64 base) (/.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
	99.3%	(.f64 (log.f64 (hypot.f64 re im)) (.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal -2 binary64))))
✓	99.3%	(*.f64 (log.f64 (hypot.f64 im re)) #s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base))))
	50.7%	(.f64 (log.f64 (hypot.f64 im re)) #s(approx (/ (log base) (pow (log base) 2)) (.f64 (pow.f64 (log.f64 base) #s(literal -1/2 binary64)) (pow.f64 (log.f64 base) #s(literal -1/2 binary64)))))
	50.3%	(.f64 (log.f64 (hypot.f64 im re)) #s(approx (/ (log base) (pow (log base) 2)) (exp.f64 (.f64 (log.f64 (log.f64 base)) #s(literal -1 binary64)))))
	98.8%	(.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) (/.f64 (log.f64 base) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
	99.0%	(.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) #s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base))))
	98.9%	(.f64 (log.f64 base) (/.f64 (/.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) (log.f64 base)) (log.f64 base)))
	51.9%	(.f64 (log.f64 base) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (.f64 re re)))) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
✓	98.8%	(.f64 (log.f64 base) (/.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
✓	98.9%	(.f64 #s(approx (/ ( (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
	98.7%	(.f64 #s(approx (/ ( (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (/.f64 (-.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)) #s(literal 0 binary64)) (-.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))))
	99.0%	(log.f64 (pow.f64 (hypot.f64 re im) #s(approx (/ (log base) (pow (log base) 2)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))))
✓	99.4%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
✓	52.0%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base)))
✓	99.0%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))

Compiler

Compiled 1 736 to 588 computations (66.1% saved)

regimes68.0ms (1%)

Memory

11.2MiB live, 150.5MiB allocated; 17ms collecting garbage

Counts

46 → 1

Calls

Call 1

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

Outputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))

Calls

5 calls:

16.0ms	re
14.0ms	(log.f64 base)
14.0ms	im
11.0ms	base
10.0ms	(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))

Results

Accuracy	Segments	Branch
99.4%	1	`(log.f64 base)`
99.4%	1	`(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))`
99.4%	1	`re`
99.4%	1	`im`
99.4%	1	`base`

Compiler

Compiled 33 to 31 computations (6.1% saved)

regimes9.0ms (0.1%)

Memory

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

Accuracy

Total -30.4b remaining (-4883.7%)

Threshold costs -30.4b (-4883.7%)

Counts

4 → 1

Calls

Call 1

Inputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
(.f64 (log.f64 #s(approx (sqrt (+ ( im im) (* re re))) im)) #s(approx (/ (log base) (pow (log base) 2)) (/.f64 #s(literal 1 binary64) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) im) im) #s(literal 1/2 binary64) (log.f64 im)) (log.f64 base)))

Outputs
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))

Calls

5 calls:

2.0ms	base
2.0ms	re
2.0ms	(log.f64 base)
2.0ms	im
2.0ms	(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))

Results

Accuracy	Segments	Branch
99.0%	1	`(log.f64 base)`
99.0%	1	`(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))`
99.0%	1	`re`
99.0%	1	`im`
99.0%	1	`base`

Compiler

Compiled 33 to 31 computations (6.1% saved)

simplify72.0ms (1%)

Memory

-22.9MiB live, 71.0MiB allocated; 7ms collecting garbage

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	26	54
1	63	50
2	241	42
3	1864	38
4	6433	38

Stop Event

1×	node limit

Calls

Call 1

Inputs

#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))

#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))

Outputs

#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))

#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))

derivations98.0ms (1.4%)

Memory

-17.1MiB live, 78.5MiB allocated; 16ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 70 to 26 computations (62.9% saved)

preprocess33.0ms (0.5%)

Memory

10.7MiB live, 51.5MiB allocated; 12ms collecting garbage

Remove

(sort re im)

(abs im)

(abs re)

Compiler

Compiled 412 to 226 computations (45.1% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze223.0ms (3.2%)

sample1.7s (23.8%)

explain399.0ms (5.7%)

preprocess136.0ms (1.9%)

eval0.0ms (0%)

prune1.0ms (0%)

simplify169.0ms (2.4%)

localize133.0ms (1.9%)

series194.0ms (2.7%)

simplify247.0ms (3.5%)

rewrite122.0ms (1.7%)

eval47.0ms (0.7%)

prune74.0ms (1%)

simplify90.0ms (1.3%)

localize112.0ms (1.6%)

series283.0ms (4%)

simplify219.0ms (3.1%)

rewrite36.0ms (0.5%)

eval99.0ms (1.4%)

prune41.0ms (0.6%)

simplify145.0ms (2.1%)

localize172.0ms (2.4%)

series159.0ms (2.2%)

simplify239.0ms (3.4%)

rewrite64.0ms (0.9%)

eval93.0ms (1.3%)

prune29.0ms (0.4%)

simplify320.0ms (4.5%)

localize151.0ms (2.1%)

series370.0ms (5.2%)

simplify240.0ms (3.4%)

rewrite121.0ms (1.7%)

eval322.0ms (4.6%)

prune52.0ms (0.7%)

regimes68.0ms (1%)

regimes9.0ms (0.1%)

simplify72.0ms (1%)

derivations98.0ms (1.4%)

preprocess33.0ms (0.5%)

end0.0ms (0%)

Profiling