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

start0.0ms (0%)

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

analyze192.0ms (1.2%)

Memory

11.6MiB live, 200.2MiB allocated; 67ms 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.3s (8%)

Memory

-18.0MiB live, 1 488.5MiB allocated; 244ms collecting garbage

Samples

900.0ms

8 256×

valid

Precisions

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

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

ival-hypot: 154.0ms (22.9% of total)

ival-mult: 146.0ms (21.8% of total)

ival-add: 71.0ms (10.6% of total)

ival-atan2: 59.0ms (8.8% of total)

ival-div: 52.0ms (7.7% of total)

exact: 6.0ms (0.9% of total)

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

adjust: 2.0ms (0.3% of total)

Bogosity

explain223.0ms (1.3%)

Memory

-18.7MiB live, 319.7MiB allocated; 15ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
120	-	3	(1.7325891030495992e-263 -1.372753211255058e-161 5.944791862537321e-89)	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`
0	-	0	-	`(log.f64 base)`
0	-	0	-	`(*.f64 re re)`
0	-	0	-	`(atan2.f64 im re)`
0	-	0	-	`im`
0	-	0	-	`(+.f64 (.f64 re re) (.f64 im im))`
0	-	0	-	`re`
0	-	0	-	`(+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64)))`
0	-	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	-	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	-	0	-	`#s(literal 0 binary64)`
0	-	0	-	`(*.f64 (atan2.f64 im re) #s(literal 0 binary64))`
0	-	0	-	`(*.f64 #s(literal 0 binary64) #s(literal 0 binary64))`
0	-	0	-	`(*.f64 (log.f64 base) (log.f64 base))`
0	-	0	-	`(.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im)))) (log.f64 base))`
0	-	0	-	`(*.f64 im im)`
0	-	0	-	`base`
0	-	0	-	`(log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))))`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	oflow-rescue	101	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	101
↳	`(*.f64 re re)`	overflow	52
↳	`(*.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	65
↳	`(*.f64 im im)`	underflow	64

Confusion

	Predicted +	Predicted -
+	117	3
-	0	136

Precision

1.0

Recall

0.975

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	117	0	3
-	0	0	136

Precision?

1.0

Recall?

0.975

Freqs

test

number	freq
0	139
1	117

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

71.0ms

512×

valid

Compiler

Compiled 270 to 58 computations (78.5% saved)

Precisions

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

ival-mult: 14.0ms (29.6% of total)

ival-log: 10.0ms (21.1% of total)

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

ival-add: 6.0ms (12.7% of total)

ival-atan2: 4.0ms (8.4% of total)

ival-div: 3.0ms (6.3% 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)

preprocess135.0ms (0.8%)

Memory

10.1MiB live, 99.3MiB allocated; 14ms 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.0MiB live, 0.0MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 3 computations (-∞% saved)

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

▶

54.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)

series151.0ms (0.9%)

Memory

29.8MiB live, 126.7MiB allocated; 14ms collecting garbage

Counts

18 → 148

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

Calls

9 calls:

Time	Variable		Point	Expression
91.0ms	base	@	0	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log base) base (* (atan2 im re) 0) (atan2 im re) 0 (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0))
20.0ms	base	@	inf	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log base) base (* (atan2 im re) 0) (atan2 im re) 0 (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0))
20.0ms	base	@	-inf	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log base) base (* (atan2 im re) 0) (atan2 im re) 0 (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0))
4.0ms	re	@	inf	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log base) base (* (atan2 im re) 0) (atan2 im re) 0 (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0))
4.0ms	im	@	0	((/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log base) base (* (atan2 im re) 0) (atan2 im re) 0 (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0))

rewrite224.0ms (1.4%)

Memory

-28.4MiB live, 212.3MiB allocated; 27ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	541	5513
0	566	4927
1	2887	4895
0	8237	3971

Stop Event

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

Counts

166 → 383

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

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

eval56.0ms (0.3%)

Memory: 23.9MiB live, 70.0MiB allocated; 3ms collecting garbage
Compiler: Compiled 12 863 to 1 735 computations (86.5% saved)

prune473.0ms (2.9%)

Memory

-33.2MiB live, 541.3MiB allocated; 35ms collecting garbage

Pruning

10 alts after pruning (10 fresh and 0 done)

	Pruned	Kept	Total
New	348	10	358
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	349	10	359

Accuracy

99.8%

Counts

359 → 10

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)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
	99.3%	(/.f64 (/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.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.2%	(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	54.8%	(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (/.f64 #s(literal 1 binary64) (pow.f64 (log.f64 base) #s(literal -1 binary64)))) (.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))))
▶	54.8%	(/.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 4 binary64)) #s(literal 0 binary64)) (-.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))))
	54.8%	(/.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)) #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))))))
▶	26.7%	(/.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) (exp.f64 (.f64 (log.f64 (log.f64 base)) #s(literal 1 binary64)))) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	27.3%	(/.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 (cosh.f64 (.f64 (log.f64 (neg.f64 (log.f64 base))) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (neg.f64 (log.f64 base))) #s(literal 2 binary64)))))
▶	86.5%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 base))))
▶	99.5%	#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)))

Compiler

Compiled 696 to 436 computations (37.4% saved)

series319.0ms (1.9%)

Memory

9.9MiB live, 387.8MiB allocated; 38ms collecting garbage

Counts

53 → 521

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

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

Calls

9 calls:

Time	Variable		Point	Expression
90.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))) im re (log base) base (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+ (* (/ (* re re) (* (* im im) (log base))) 1/2) (/ (log im) (log base))) (/ (* re re) (* (* im im) (log base))) (* re re) (* (* im im) (log base)) (* im im) 1/2 (/ (log im) (log base)) (log im) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (exp (* (log (log base)) 1))) (* 0 0))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* (atan2 im re) 0) (atan2 im re) 0 (+ (* (log base) (exp (* (log (log base)) 1))) (* 0 0)) (* (log base) (exp (* (log (log base)) 1))) (exp (* (log (log base)) 1)) (* (log (log base)) 1) (log (log base)) 1 (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (log base) 4) 0) (- (pow (log base) 2) 0))) (/ (- (pow (log base) 4) 0) (- (pow (log base) 2) 0)) (- (pow (log base) 4) 0) (pow (log base) 4) 4 (- (pow (log base) 2) 0) (pow (log base) 2) 2 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)))
43.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))) im re (log base) base (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+ (* (/ (* re re) (* (* im im) (log base))) 1/2) (/ (log im) (log base))) (/ (* re re) (* (* im im) (log base))) (* re re) (* (* im im) (log base)) (* im im) 1/2 (/ (log im) (log base)) (log im) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (exp (* (log (log base)) 1))) (* 0 0))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* (atan2 im re) 0) (atan2 im re) 0 (+ (* (log base) (exp (* (log (log base)) 1))) (* 0 0)) (* (log base) (exp (* (log (log base)) 1))) (exp (* (log (log base)) 1)) (* (log (log base)) 1) (log (log base)) 1 (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (log base) 4) 0) (- (pow (log base) 2) 0))) (/ (- (pow (log base) 4) 0) (- (pow (log base) 2) 0)) (- (pow (log base) 4) 0) (pow (log base) 4) 4 (- (pow (log base) 2) 0) (pow (log base) 2) 2 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)))
42.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))) im re (log base) base (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+ (* (/ (* re re) (* (* im im) (log base))) 1/2) (/ (log im) (log base))) (/ (* re re) (* (* im im) (log base))) (* re re) (* (* im im) (log base)) (* im im) 1/2 (/ (log im) (log base)) (log im) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (exp (* (log (log base)) 1))) (* 0 0))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* (atan2 im re) 0) (atan2 im re) 0 (+ (* (log base) (exp (* (log (log base)) 1))) (* 0 0)) (* (log base) (exp (* (log (log base)) 1))) (exp (* (log (log base)) 1)) (* (log (log base)) 1) (log (log base)) 1 (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (log base) 4) 0) (- (pow (log base) 2) 0))) (/ (- (pow (log base) 4) 0) (- (pow (log base) 2) 0)) (- (pow (log base) 4) 0) (pow (log base) 4) 4 (- (pow (log base) 2) 0) (pow (log base) 2) 2 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)))
34.0ms	re	@	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))) im re (log base) base (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+ (* (/ (* re re) (* (* im im) (log base))) 1/2) (/ (log im) (log base))) (/ (* re re) (* (* im im) (log base))) (* re re) (* (* im im) (log base)) (* im im) 1/2 (/ (log im) (log base)) (log im) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (exp (* (log (log base)) 1))) (* 0 0))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* (atan2 im re) 0) (atan2 im re) 0 (+ (* (log base) (exp (* (log (log base)) 1))) (* 0 0)) (* (log base) (exp (* (log (log base)) 1))) (exp (* (log (log base)) 1)) (* (log (log base)) 1) (log (log base)) 1 (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (log base) 4) 0) (- (pow (log base) 2) 0))) (/ (- (pow (log base) 4) 0) (- (pow (log base) 2) 0)) (- (pow (log base) 4) 0) (pow (log base) 4) 4 (- (pow (log base) 2) 0) (pow (log base) 2) 2 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)))
25.0ms	re	@	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))) im re (log base) base (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (+ (* (/ (* re re) (* (* im im) (log base))) 1/2) (/ (log im) (log base))) (/ (* re re) (* (* im im) (log base))) (* re re) (* (* im im) (log base)) (* im im) 1/2 (/ (log im) (log base)) (log im) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (exp (* (log (log base)) 1))) (* 0 0))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* (atan2 im re) 0) (atan2 im re) 0 (+ (* (log base) (exp (* (log (log base)) 1))) (* 0 0)) (* (log base) (exp (* (log (log base)) 1))) (exp (* (log (log base)) 1)) (* (log (log base)) 1) (log (log base)) 1 (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (log base) 4) 0) (- (pow (log base) 2) 0))) (/ (- (pow (log base) 4) 0) (- (pow (log base) 2) 0)) (- (pow (log base) 4) 0) (pow (log base) 4) 4 (- (pow (log base) 2) 0) (pow (log base) 2) 2 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)))

rewrite263.0ms (1.6%)

Memory

11.7MiB live, 196.0MiB allocated; 13ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1375	24709
0	1474	18945
1	6788	18943
0	8685	18106

Stop Event

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

Counts

574 → 963

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

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

eval122.0ms (0.7%)

Memory: 14.5MiB live, 159.0MiB allocated; 12ms collecting garbage
Compiler: Compiled 56 093 to 3 897 computations (93.1% saved)

prune2.6s (15.9%)

Memory

13.3MiB live, 3 399.2MiB allocated; 233ms collecting garbage

Pruning

15 alts after pruning (14 fresh and 1 done)

	Pruned	Kept	Total
New	1 021	10	1 031
Fresh	1	4	5
Picked	4	1	5
Done	0	0	0
Total	1 026	15	1 041

Accuracy

99.9%

Counts

1 041 → 15

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)) (.f64 (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 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) (.f64 (+.f64 (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 0 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
	51.3%	(/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3/2 binary64)) (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3/2 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
▶	98.9%	(/.f64 (/.f64 (fma.f64 (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 3 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.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.1%	(/.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) #s(literal 0 binary64))))) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	50.3%	(/.f64 (/.f64 (-.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (exp.f64 (.f64 (log.f64 (log.f64 base)) #s(literal 1 binary64)))) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
▶	99.3%	(/.f64 (/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
▶	98.7%	(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	99.0%	(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)) (/.f64 (+.f64 (pow.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 0 binary64)))))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	54.8%	(/.f64 (+.f64 (.f64 (log.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))) (/.f64 #s(literal 1 binary64) (pow.f64 (log.f64 base) #s(literal -1 binary64)))) (.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))))
▶	54.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 (-.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))))))
	54.8%	(/.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)) #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.1%	(*.f64 (/.f64 (fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) #s(literal 0 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
▶	86.4%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base))) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base)))) (.f64 (/.f64 (log.f64 im) (log.f64 base)) (/.f64 (log.f64 im) (log.f64 base)))) (-.f64 (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base)))))
✓	99.5%	#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)))

Compiler

Compiled 1 248 to 635 computations (49.1% saved)

series274.0ms (1.7%)

Memory

35.5MiB live, 509.2MiB allocated; 27ms collecting garbage

Counts

63 → 758

Calls

Call 1

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

Outputs
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 (* (log base) (log im))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) #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) 0) #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) 0) #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) #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)))) #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 re #s(hole binary64 re))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #s(hole binary64 (* (log base) (log im))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #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))))) 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 base) (log (sqrt (+ (* im im) (* re 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)) (+ (* (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 (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (/ (log im) (log base)))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) #s(hole binary64 (* -1 (/ (pow (log im) 2) (pow (log base) 2)))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (/ (pow (log im) 2) (pow (log base) 2)))))
#s(approx (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) #s(hole binary64 (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2))))))
#s(approx (/ (* (* re re) 1/2) (* (* im im) (log base))) #s(hole binary64 (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))
#s(approx (* (* re re) 1/2) #s(hole binary64 (* 1/2 (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) #s(hole binary64 (* -1 (/ (log im) (log base)))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) #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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) #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)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* (atan2 im re) 0) #s(hole binary64 0))
#s(approx (atan2 im re) #s(hole binary64 (atan2 im re)))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #s(hole binary64 (* (log base) (log im))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) #s(hole binary64 (* (pow (log base) 3) (pow (log im) 3))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) #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) 0) #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) 0) #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) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (pow (log im) 2)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (/ (* (pow re 2) (log im)) (pow im 2)) (pow (log im) 2))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (+ (* -1/2 (/ (log im) (pow im 4))) (* 1/4 (/ 1 (pow im 4))))) (/ (log im) (pow im 2)))) (pow (log im) 2))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (+ (* -1/2 (/ (log im) (pow im 4))) (+ (* 1/4 (/ 1 (pow im 4))) (* (pow re 2) (- (* 1/3 (/ (log im) (pow im 6))) (* 1/4 (/ 1 (pow im 6)))))))) (/ (log im) (pow im 2)))) (pow (log im) 2))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log im) (log base))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (* (log base) (log im))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))) (* (log base) (log im)))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #s(hole binary64 (* (pow (log base) 3) (pow (log im) 3))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (pow (log im) 3)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (pow (log im) 2) (pow im 2))) (/ (pow (log im) 2) (pow im 2)))) (pow (log im) 3))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (pow (log im) 2) (pow im 2))) (+ (* (pow re 2) (+ (* -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 im) 2) (pow im 2))))) (pow (log im) 3))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (pow (log im) 2) (pow im 2))) (+ (* (pow re 2) (+ (* -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 re 2) (+ (* -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 im) 2) (pow im 2))))) (pow (log im) 3))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #s(hole binary64 (* (pow (log base) 2) (pow (log im) 2))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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 (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 0))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #s(hole binary64 0))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 re)) 2))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) #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) 0) #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) 0) #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) #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)))) #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))))) 0) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #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))))) 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 base) (log (sqrt (+ (* im im) (* re 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)) (+ (* (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 (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (* (pow re 2) (+ (* 1/2 (/ 1 (* (pow im 2) (log base)))) (/ (log im) (* (pow re 2) (log base)))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) #s(hole binary64 (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) #s(hole binary64 (* (pow re 4) (+ (* -1 (/ (pow (log im) 2) (* (pow re 4) (pow (log base) 2)))) (* 1/4 (/ 1 (* (pow im 4) (pow (log base) 2))))))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) #s(hole binary64 (* 1/2 (/ (pow re 2) (* (pow im 2) (log base))))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (log im) (* (pow re 2) (log base)))) (* 1/2 (/ 1 (* (pow im 2) (log base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) #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)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) #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) 0) #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) 0) #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) 0) #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) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 re)) 2))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (pow (log (/ 1 re)) 2)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (log (/ 1 re))) (pow re 2))) (pow (log (/ 1 re)) 2))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (log (/ 1 re))) (pow re 2))) (+ (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/2 (/ (* (pow im 4) (log (/ 1 re))) (pow re 4))) (pow (log (/ 1 re)) 2))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (log (/ 1 re))) (pow re 2))) (+ (* -1/4 (/ (pow im 6) (pow re 6))) (+ (* -1/360 (/ (* (log (/ 1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (+ (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/2 (/ (* (pow im 4) (log (/ 1 re))) (pow re 4))) (pow (log (/ 1 re)) 2))))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log base)))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 re))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #s(hole binary64 (* -1 (* (pow (log base) 3) (pow (log (/ 1 re)) 3)))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (* -1 (pow (log (/ 1 re)) 3))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* -1 (pow (log (/ 1 re)) 3)) (+ (* 1/2 (/ (* (pow im 2) (pow (log (/ 1 re)) 2)) (pow re 2))) (/ (* (pow im 2) (pow (log (/ 1 re)) 2)) (pow re 2))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* -1 (/ (* (log (/ 1 re)) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4))) (+ (* -1 (pow (log (/ 1 re)) 3)) (+ (* -1/2 (/ (* (pow im 4) (log (/ 1 re))) (pow re 4))) (+ (* -1/4 (/ (* (pow im 4) (pow (log (/ 1 re)) 2)) (pow re 4))) (+ (* 1/2 (/ (* (pow im 2) (pow (log (/ 1 re)) 2)) (pow re 2))) (/ (* (pow im 2) (pow (log (/ 1 re)) 2)) (pow re 2)))))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* -1 (/ (* (log (/ 1 re)) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ 1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6))) (+ (* -1 (/ (* (log (/ 1 re)) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 4))) (+ (* -1 (pow (log (/ 1 re)) 3)) (+ (* -1/2 (/ (* (pow im 4) (log (/ 1 re))) (pow re 4))) (+ (* -1/4 (/ (* (pow im 4) (pow (log (/ 1 re)) 2)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log (/ 1 re)) 2) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (+ (* 1/4 (/ (* (pow im 6) (log (/ 1 re))) (pow re 6))) (+ (* 1/2 (/ (* (pow im 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ 1 re)))))) (pow re 6))) (+ (* 1/2 (/ (* (pow im 2) (pow (log (/ 1 re)) 2)) (pow 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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 re)) 2))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 re)) 2))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) #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) 0) #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) 0) #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) #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)))) #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))))) 0) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #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))))) 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 base) (log (sqrt (+ (* im im) (* re 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)) (+ (* (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 (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) #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)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) #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) 0) #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) 0) #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) 0) #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) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 re)) 2))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (pow (log (/ -1 re)) 2)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (log (/ -1 re))) (pow re 2))) (pow (log (/ -1 re)) 2))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (log (/ -1 re))) (pow re 2))) (+ (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/2 (/ (* (pow im 4) (log (/ -1 re))) (pow re 4))) (pow (log (/ -1 re)) 2))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow im 2) (log (/ -1 re))) (pow re 2))) (+ (* -1/4 (/ (pow im 6) (pow re 6))) (+ (* -1/360 (/ (* (log (/ -1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (+ (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/2 (/ (* (pow im 4) (log (/ -1 re))) (pow re 4))) (pow (log (/ -1 re)) 2))))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log base)))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 re))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 re)))) (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #s(hole binary64 (* -1 (* (pow (log base) 3) (pow (log (/ -1 re)) 3)))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (* -1 (pow (log (/ -1 re)) 3))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* -1 (pow (log (/ -1 re)) 3)) (+ (* 1/2 (/ (* (pow im 2) (pow (log (/ -1 re)) 2)) (pow re 2))) (/ (* (pow im 2) (pow (log (/ -1 re)) 2)) (pow re 2))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* -1 (/ (* (log (/ -1 re)) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4))) (+ (* -1 (pow (log (/ -1 re)) 3)) (+ (* -1/2 (/ (* (pow im 4) (log (/ -1 re))) (pow re 4))) (+ (* -1/4 (/ (* (pow im 4) (pow (log (/ -1 re)) 2)) (pow re 4))) (+ (* 1/2 (/ (* (pow im 2) (pow (log (/ -1 re)) 2)) (pow re 2))) (/ (* (pow im 2) (pow (log (/ -1 re)) 2)) (pow re 2)))))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* -1 (/ (* (log (/ -1 re)) (+ (* -1/4 (pow im 6)) (* -1/360 (* (log (/ -1 re)) (+ (* 30 (pow im 6)) (* 90 (pow im 6))))))) (pow re 6))) (+ (* -1 (/ (* (log (/ -1 re)) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 4))) (+ (* -1 (pow (log (/ -1 re)) 3)) (+ (* -1/2 (/ (* (pow im 4) (log (/ -1 re))) (pow re 4))) (+ (* -1/4 (/ (* (pow im 4) (pow (log (/ -1 re)) 2)) (pow re 4))) (+ (* 1/720 (/ (* (pow (log (/ -1 re)) 2) (+ (* 30 (pow im 6)) (* 90 (pow im 6)))) (pow re 6))) (+ (* 1/4 (/ (* (pow im 6) (log (/ -1 re))) (pow re 6))) (+ (* 1/2 (/ (* (pow im 2) (+ (* 1/4 (pow im 4)) (* 1/2 (* (pow im 4) (log (/ -1 re)))))) (pow re 6))) (+ (* 1/2 (/ (* (pow im 2) (pow (log (/ -1 re)) 2)) (pow 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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 re)) 2))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 (* (log base) (log re))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log re) 2))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) #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) 0) #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) 0) #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) #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 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)))) #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 im #s(hole binary64 im))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #s(hole binary64 (* (log base) (log re))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #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))))) 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 base) (log (sqrt (+ (* im im) (* re 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)) (+ (* (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 (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (log base))) (/ (* (pow im 2) (log im)) (log base))) (pow im 2))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow im 4) (pow (log im) 2)) (pow (log base) 2))) (* 1/4 (/ (pow re 4) (pow (log base) 2)))) (pow im 4))))
#s(approx (* (* im im) (log base)) #s(hole binary64 (* (pow im 2) (log base))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) #s(hole binary64 (/ (pow (log im) 2) (pow (log base) 2))))
#s(approx (/ (log im) (log base)) #s(hole binary64 (/ (log im) (log base))))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow im 2) (log im)) (log base))) (* 1/2 (/ (pow re 2) (log base)))) (pow im 2))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) #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)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #s(hole binary64 (* (log base) (log re))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) #s(hole binary64 (* (pow (log base) 3) (pow (log re) 3))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) #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) 0) #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) 0) #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) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log re) 2))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (pow (log re) 2)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (/ (* (pow im 2) (log re)) (pow re 2)) (pow (log re) 2))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (log re) (pow re 4))) (* 1/4 (/ 1 (pow re 4))))) (/ (log re) (pow re 2)))) (pow (log re) 2))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (log re) (pow re 4))) (+ (* 1/4 (/ 1 (pow re 4))) (* (pow im 2) (- (* 1/3 (/ (log re) (pow re 6))) (* 1/4 (/ 1 (pow re 6)))))))) (/ (log re) (pow re 2)))) (pow (log re) 2))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log re) (log base))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (* (log base) (log re))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (log base)) (pow re 2))) (* (log base) (log re)))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #s(hole binary64 (* (pow (log base) 3) (pow (log re) 3))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (pow (log re) 3)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/2 (/ (pow (log re) 2) (pow re 2))) (/ (pow (log re) 2) (pow re 2)))) (pow (log re) 3))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/2 (/ (pow (log re) 2) (pow re 2))) (+ (* (pow im 2) (+ (* -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 re) 2) (pow re 2))))) (pow (log re) 3))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* (pow im 2) (+ (* 1/2 (/ (pow (log re) 2) (pow re 2))) (+ (* (pow im 2) (+ (* -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 im 2) (+ (* -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 re) 2) (pow re 2))))) (pow (log re) 3))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #s(hole binary64 (* (pow (log base) 2) (pow (log re) 2))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) #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) 0) #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) 0) #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) #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 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)))) #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))))) 0) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #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))))) 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 base) (log (sqrt (+ (* im im) (* re 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)) (+ (* (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 (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log base))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 2) (pow (log base) 2)))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (/ (pow (log (/ 1 im)) 2) (pow (log base) 2)))))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log base) 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 (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) #s(hole binary64 (/ (log (/ 1 im)) (log base))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) #s(hole binary64 (- (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (* -1 (/ (log (/ 1 im)) (log base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) #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)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) #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) 0) #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) 0) #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) 0) #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) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (pow (log (/ 1 im)) 2)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (log (/ 1 im))) (pow im 2))) (pow (log (/ 1 im)) 2))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (log (/ 1 im))) (pow im 2))) (+ (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (* (pow re 4) (log (/ 1 im))) (pow im 4))) (pow (log (/ 1 im)) 2))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (log (/ 1 im))) (pow im 2))) (+ (* -1/4 (/ (pow re 6) (pow im 6))) (+ (* -1/360 (/ (* (log (/ 1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (+ (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (* (pow re 4) (log (/ 1 im))) (pow im 4))) (pow (log (/ 1 im)) 2))))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log base)))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (* -1 (* (log base) (log (/ 1 im))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ 1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #s(hole binary64 (* -1 (* (pow (log base) 3) (pow (log (/ 1 im)) 3)))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (* -1 (pow (log (/ 1 im)) 3))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* -1 (pow (log (/ 1 im)) 3)) (+ (* 1/2 (/ (* (pow re 2) (pow (log (/ 1 im)) 2)) (pow im 2))) (/ (* (pow re 2) (pow (log (/ 1 im)) 2)) (pow im 2))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* -1 (/ (* (log (/ 1 im)) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4))) (+ (* -1 (pow (log (/ 1 im)) 3)) (+ (* -1/2 (/ (* (pow re 4) (log (/ 1 im))) (pow im 4))) (+ (* -1/4 (/ (* (pow re 4) (pow (log (/ 1 im)) 2)) (pow im 4))) (+ (* 1/2 (/ (* (pow re 2) (pow (log (/ 1 im)) 2)) (pow im 2))) (/ (* (pow re 2) (pow (log (/ 1 im)) 2)) (pow im 2)))))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* -1 (/ (* (log (/ 1 im)) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ 1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6))) (+ (* -1 (/ (* (log (/ 1 im)) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 4))) (+ (* -1 (pow (log (/ 1 im)) 3)) (+ (* -1/2 (/ (* (pow re 4) (log (/ 1 im))) (pow im 4))) (+ (* -1/4 (/ (* (pow re 4) (pow (log (/ 1 im)) 2)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log (/ 1 im)) 2) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (+ (* 1/4 (/ (* (pow re 6) (log (/ 1 im))) (pow im 6))) (+ (* 1/2 (/ (* (pow re 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ 1 im)))))) (pow im 6))) (+ (* 1/2 (/ (* (pow re 2) (pow (log (/ 1 im)) 2)) (pow 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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ 1 im)) 2))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 im)) 2))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) #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) 0) #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) 0) #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) #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 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)))) #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))))) 0) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #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))))) 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 base) (log (sqrt (+ (* im im) (* re 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)) (+ (* (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 (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (* (pow (log base) 2) (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base)))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2)) (* (pow im 2) (* (pow (log base) 3) (pow (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))) 2))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (* (pow (log base) 2) (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (- (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (* (pow (log base) 2) (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (* (pow (log base) 2) (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base)))))) (+ (* -1/2 (/ (* (pow re 2) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2)) (* (pow im 2) (* (pow (log base) 3) (pow (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))) 2))))) (* -1/4 (/ (* (pow re 4) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2)) (* (pow im 4) (* (pow (log base) 4) (pow (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))) 3)))))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (- (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (* (pow (log base) 2) (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))))))) (+ (* 1/2 (/ (* (pow re 2) (- (* -1/4 (/ (pow re 4) (* (pow (log base) 2) (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base)))))) (* -1/4 (/ (* (pow re 4) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2)) (* (pow (log base) 4) (pow (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))) 3)))))) (* (pow im 6) (* (log base) (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (* (pow (log base) 2) (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))))))) (+ (* -1/2 (/ (* (pow re 2) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2)) (* (pow im 2) (* (pow (log base) 3) (pow (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))) 2))))) (* -1/4 (/ (* (pow re 4) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2)) (* (pow im 4) (* (pow (log base) 4) (pow (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))) 3)))))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) #s(hole binary64 (* -1 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log base) 2)))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log base) 2)))))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log base) 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 (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) #s(hole binary64 (* -1 (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) #s(hole binary64 (- (* 1/2 (/ (pow re 2) (* (pow im 2) (log base)))) (+ (* -1 (/ (log (/ -1 im)) (log base))) (/ (log -1) (log base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) #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)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) #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) 0) #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) 0) #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) 0) #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) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 im)) 2))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (pow (log (/ -1 im)) 2)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (log (/ -1 im))) (pow im 2))) (pow (log (/ -1 im)) 2))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (log (/ -1 im))) (pow im 2))) (+ (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (* (pow re 4) (log (/ -1 im))) (pow im 4))) (pow (log (/ -1 im)) 2))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (+ (* -1 (/ (* (pow re 2) (log (/ -1 im))) (pow im 2))) (+ (* -1/4 (/ (pow re 6) (pow im 6))) (+ (* -1/360 (/ (* (log (/ -1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (+ (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (* (pow re 4) (log (/ -1 im))) (pow im 4))) (pow (log (/ -1 im)) 2))))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log base)))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (* -1 (* (log base) (log (/ -1 im))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (+ (* -1 (* (log base) (log (/ -1 im)))) (* 1/2 (/ (* (pow re 2) (log base)) (pow im 2))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #s(hole binary64 (* -1 (* (pow (log base) 3) (pow (log (/ -1 im)) 3)))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (* -1 (pow (log (/ -1 im)) 3))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* -1 (pow (log (/ -1 im)) 3)) (+ (* 1/2 (/ (* (pow re 2) (pow (log (/ -1 im)) 2)) (pow im 2))) (/ (* (pow re 2) (pow (log (/ -1 im)) 2)) (pow im 2))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* -1 (/ (* (log (/ -1 im)) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4))) (+ (* -1 (pow (log (/ -1 im)) 3)) (+ (* -1/2 (/ (* (pow re 4) (log (/ -1 im))) (pow im 4))) (+ (* -1/4 (/ (* (pow re 4) (pow (log (/ -1 im)) 2)) (pow im 4))) (+ (* 1/2 (/ (* (pow re 2) (pow (log (/ -1 im)) 2)) (pow im 2))) (/ (* (pow re 2) (pow (log (/ -1 im)) 2)) (pow im 2)))))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) #s(hole binary64 (+ (* -1 (/ (* (log (/ -1 im)) (+ (* -1/4 (pow re 6)) (* -1/360 (* (log (/ -1 im)) (+ (* 30 (pow re 6)) (* 90 (pow re 6))))))) (pow im 6))) (+ (* -1 (/ (* (log (/ -1 im)) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 4))) (+ (* -1 (pow (log (/ -1 im)) 3)) (+ (* -1/2 (/ (* (pow re 4) (log (/ -1 im))) (pow im 4))) (+ (* -1/4 (/ (* (pow re 4) (pow (log (/ -1 im)) 2)) (pow im 4))) (+ (* 1/720 (/ (* (pow (log (/ -1 im)) 2) (+ (* 30 (pow re 6)) (* 90 (pow re 6)))) (pow im 6))) (+ (* 1/4 (/ (* (pow re 6) (log (/ -1 im))) (pow im 6))) (+ (* 1/2 (/ (* (pow re 2) (+ (* 1/4 (pow re 4)) (* 1/2 (* (pow re 4) (log (/ -1 im)))))) (pow im 6))) (+ (* 1/2 (/ (* (pow re 2) (pow (log (/ -1 im)) 2)) (pow 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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #s(hole binary64 (* (pow (log base) 2) (pow (log (/ -1 im)) 2))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) #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) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #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) 0) #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) #s(hole binary64 (* (pow (log base) 2) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2))))
#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) #s(hole binary64 (log base)))
#s(approx base #s(hole binary64 base))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (+ (* (log base) (log base)) (* 0 0)) #s(hole binary64 (pow (log base) 2)))
#s(approx (* (log base) (log base)) #s(hole binary64 (pow (log base) 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 (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (/ (- (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log base) 2)))) (/ (pow (log im) 2) (pow (log base) 2))) (- (* 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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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 (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0)))) #s(hole binary64 (pow (log base) 2)))
#s(approx (- (pow (pow (log base) 2) 3) 0) #s(hole binary64 (pow (log base) 6)))
#s(approx (pow (pow (log base) 2) 3) #s(hole binary64 (pow (log base) 6)))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log base) 2)))
#s(approx (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))) #s(hole binary64 (pow (log base) 4)))
#s(approx (pow (log base) 4) #s(hole binary64 (pow (log base) 4)))
#s(approx (+ 0 (* (pow (log base) 2) 0)) #s(hole binary64 0))
#s(approx (* (pow (log base) 2) 0) #s(hole binary64 0))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) #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) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #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) 0) #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) #s(hole binary64 (* (pow (log base) 3) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 3))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #s(hole binary64 (* (pow (log base) 2) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) #s(hole binary64 (/ (log (sqrt (+ (pow im 2) (pow re 2)))) (log base))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (* (log base) (log (sqrt (+ (pow im 2) (pow re 2)))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #s(hole binary64 (* (pow (log base) 3) (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 3))))
#s(approx (pow (log base) 3) #s(hole binary64 (pow (log base) 3)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #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) 0) #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) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (log (/ 1 base)) 2))))
#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) #s(hole binary64 (* -1 (log (/ 1 base)))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (+ (* (log base) (log base)) (* 0 0)) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (* (log base) (log base)) #s(hole binary64 (pow (log (/ 1 base)) 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 (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (/ (- (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log (/ 1 base)) 2)))) (/ (pow (log im) 2) (pow (log (/ 1 base)) 2))) (- (* -1/2 (/ (pow re 2) (* (pow im 2) (log (/ 1 base))))) (* -1 (/ (log im) (log (/ 1 base))))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log (/ 1 base)) 2)))) (/ (pow (log im) 2) (pow (log (/ 1 base)) 2)))))
#s(approx (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) #s(hole binary64 (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log (/ 1 base)) 2))))))
#s(approx (/ (* (* re re) 1/2) (* (* im im) (log base))) #s(hole binary64 (* -1/2 (/ (pow re 2) (* (pow im 2) (log (/ 1 base)))))))
#s(approx (* (* im im) (log base)) #s(hole binary64 (* -1 (* (pow im 2) (log (/ 1 base))))))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) #s(hole binary64 (/ (pow (log im) 2) (pow (log (/ 1 base)) 2))))
#s(approx (/ (log im) (log base)) #s(hole binary64 (* -1 (/ (log im) (log (/ 1 base))))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (* (pow im 2) (log (/ 1 base))))) (* -1 (/ (log im) (log (/ 1 base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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 (sqrt (+ (* re re) (* im im)))) (log base)) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0)))) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (- (pow (pow (log base) 2) 3) 0) #s(hole binary64 (pow (log (/ 1 base)) 6)))
#s(approx (pow (pow (log base) 2) 3) #s(hole binary64 (pow (log (/ 1 base)) 6)))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (log (/ 1 base)) 2)))
#s(approx (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))) #s(hole binary64 (pow (log (/ 1 base)) 4)))
#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))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) #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) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #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) 0) #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) #s(hole binary64 (* -1 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 3) (pow (log (/ 1 base)) 3)))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (log (/ 1 base)) 2))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (* -1 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (log (/ 1 base))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #s(hole binary64 (* -1 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 3) (pow (log (/ 1 base)) 3)))))
#s(approx (pow (log base) 3) #s(hole binary64 (* -1 (pow (log (/ 1 base)) 3))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #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) 0) #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) #s(hole binary64 (* (pow (log (sqrt (+ (pow im 2) (pow re 2)))) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#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) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 base))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re 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)) (* 0 0)) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#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)) (* (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 (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) #s(hole binary64 (/ (- (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))) (/ (pow (log im) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))) (- (* 1/2 (/ (pow re 2) (* (pow im 2) (+ (log -1) (* -1 (log (/ -1 base))))))) (/ (log im) (+ (log -1) (* -1 (log (/ -1 base)))))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))) (/ (pow (log im) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))))
#s(approx (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) #s(hole binary64 (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))))
#s(approx (/ (* (* re re) 1/2) (* (* im im) (log base))) #s(hole binary64 (* 1/2 (/ (pow re 2) (* (pow im 2) (+ (log -1) (* -1 (log (/ -1 base)))))))))
#s(approx (* (* im im) (log base)) #s(hole binary64 (* (pow im 2) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) #s(hole binary64 (/ (pow (log im) 2) (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2))))
#s(approx (/ (log im) (log base)) #s(hole binary64 (/ (log im) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) #s(hole binary64 (- (* 1/2 (/ (pow re 2) (* (pow im 2) (+ (log -1) (* -1 (log (/ -1 base))))))) (/ (log im) (+ (log -1) (* -1 (log (/ -1 base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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 (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 (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0)))) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (- (pow (pow (log base) 2) 3) 0) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 6)))
#s(approx (pow (pow (log base) 2) 3) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 6)))
#s(approx (pow (log base) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 2)))
#s(approx (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 4)))
#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))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 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 (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) #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) 0) #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) #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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) #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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re 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 (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) #s(hole binary64 (* (log (sqrt (+ (pow im 2) (pow re 2)))) (+ (log -1) (* -1 (log (/ -1 base)))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) #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) 3) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 base)))) 3)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) #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
48.0ms	base	@	-inf	((/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (log base) base (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re 2 0 (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (/ (* (* re re) 1/2) (* (* im im) (log base))) (* (* re re) 1/2) (* re re) 1/2 (* (* im im) (log base)) (* im im) (* (/ (log im) (log base)) (/ (log im) (log base))) (/ (log im) (log base)) (log im) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* (atan2 im re) 0) (atan2 im re) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0)))) (- (pow (pow (log base) 2) 3) 0) (pow (pow (log base) 2) 3) (pow (log base) 2) 3 (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))) (pow (log base) 4) 4 (+ 0 (* (pow (log base) 2) 0)) (* (pow (log base) 2) 0) (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow (log (sqrt (+ (* im im) (* re re)))) 2) (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))
31.0ms	base	@	inf	((/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (log base) base (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re 2 0 (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (/ (* (* re re) 1/2) (* (* im im) (log base))) (* (* re re) 1/2) (* re re) 1/2 (* (* im im) (log base)) (* im im) (* (/ (log im) (log base)) (/ (log im) (log base))) (/ (log im) (log base)) (log im) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* (atan2 im re) 0) (atan2 im re) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0)))) (- (pow (pow (log base) 2) 3) 0) (pow (pow (log base) 2) 3) (pow (log base) 2) 3 (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))) (pow (log base) 4) 4 (+ 0 (* (pow (log base) 2) 0)) (* (pow (log base) 2) 0) (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow (log (sqrt (+ (* im im) (* re re)))) 2) (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))
28.0ms	base	@	0	((/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (log base) base (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re 2 0 (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (/ (* (* re re) 1/2) (* (* im im) (log base))) (* (* re re) 1/2) (* re re) 1/2 (* (* im im) (log base)) (* im im) (* (/ (log im) (log base)) (/ (log im) (log base))) (/ (log im) (log base)) (log im) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* (atan2 im re) 0) (atan2 im re) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0)))) (- (pow (pow (log base) 2) 3) 0) (pow (pow (log base) 2) 3) (pow (log base) 2) 3 (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))) (pow (log base) 4) 4 (+ 0 (* (pow (log base) 2) 0)) (* (pow (log base) 2) 0) (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow (log (sqrt (+ (* im im) (* re re)))) 2) (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))
26.0ms	im	@	0	((/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (log base) base (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re 2 0 (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (/ (* (* re re) 1/2) (* (* im im) (log base))) (* (* re re) 1/2) (* re re) 1/2 (* (* im im) (log base)) (* im im) (* (/ (log im) (log base)) (/ (log im) (log base))) (/ (log im) (log base)) (log im) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* (atan2 im re) 0) (atan2 im re) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0)))) (- (pow (pow (log base) 2) 3) 0) (pow (pow (log base) 2) 3) (pow (log base) 2) 3 (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))) (pow (log base) 4) 4 (+ 0 (* (pow (log base) 2) 0)) (* (pow (log base) 2) 0) (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow (log (sqrt (+ (* im im) (* re re)))) 2) (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))
23.0ms	im	@	-inf	((/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (log base) base (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re 2 0 (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (/ (* (* re re) 1/2) (* (* im im) (log base))) (* (* re re) 1/2) (* re re) 1/2 (* (* im im) (log base)) (* im im) (* (/ (log im) (log base)) (/ (log im) (log base))) (/ (log im) (log base)) (log im) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* (atan2 im re) 0) (atan2 im re) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0)))) (- (pow (pow (log base) 2) 3) 0) (pow (pow (log base) 2) 3) (pow (log base) 2) 3 (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))) (pow (log base) 4) 4 (+ 0 (* (pow (log base) 2) 0)) (* (pow (log base) 2) 0) (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow (log (sqrt (+ (* im im) (* re re)))) 2) (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))

rewrite335.0ms (2%)

Memory

-3.8MiB live, 564.2MiB allocated; 74ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1963	40624
0	2099	38274
0	8138	36057

Stop Event

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

Counts

821 → 1 004

Calls

Call 1

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

Outputs
(/.f64 (neg.f64 (/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))) (neg.f64 (fma.f64 (log.f64 base) (log.f64 base) #s(literal 0 binary64))))
(/.f64 (/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) (fma.f64 (log.f64 base) (log.f64 base) #s(literal 0 binary64)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64))) (neg.f64 (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))
(-.f64 (/.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))) #s(literal 0 binary64))) (/.f64 #s(literal 0 binary64) (-.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(/.f64 (-.f64 (.f64 (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 im re))) #s(literal 2 binary64))) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)))
(/.f64 (-.f64 (pow.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (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 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)))))
(-.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 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 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64)))
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
(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 (log.f64 base) (log.f64 (hypot.f64 im re)))
(log.f64 (pow.f64 (hypot.f64 im re) (log.f64 base)))
(log.f64 base)
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 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
im
re
#s(literal 2 binary64)
#s(literal 0 binary64)
(/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (fma.f64 (log.f64 base) (log.f64 (hypot.f64 im re)) #s(literal 0 binary64)))
(-.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 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 (log.f64 base) #s(literal 6 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 (neg.f64 (log.f64 base)) #s(literal 1 binary64)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 1 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 (fabs.f64 (log.f64 base)) (fabs.f64 (log.f64 base)) #s(literal 0 binary64))
(fma.f64 (neg.f64 (log.f64 base)) (neg.f64 (log.f64 base)) #s(literal 0 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 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 1 binary64)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (log.f64 base) #s(literal 1 binary64)) (pow.f64 (log.f64 base) #s(literal 1 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 (neg.f64 (log.f64 base)) #s(literal 2 binary64))
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (neg.f64 (log.f64 base))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))
(log.f64 (pow.f64 base (log.f64 base)))
#s(literal 0 binary64)
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))) (-.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base)))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))) (-.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
(-.f64 (/.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base)))) (/.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base)))))
(.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (/.f64 (log.f64 im) (log.f64 base))) (-.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64))) (.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))))))
(fma.f64 (neg.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))) (neg.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))) (*.f64 (neg.f64 (/.f64 (log.f64 im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
(fma.f64 (fabs.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))) (fabs.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))) (*.f64 (neg.f64 (/.f64 (log.f64 im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
(fma.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (*.f64 (neg.f64 (/.f64 (log.f64 im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
(-.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (.f64 (neg.f64 (/.f64 (log.f64 im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
(.f64 (neg.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))) (neg.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))))
(.f64 (fabs.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))) (fabs.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))))
(.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))))
(pow.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 re re) #s(literal 1/2 binary64))) (.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 (.f64 im im) (log.f64 base))))
(.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))
(/.f64 (neg.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64))) (neg.f64 (.f64 (.f64 im im) (log.f64 base))))
(/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base)))
(.f64 (.f64 re re) #s(literal 1/2 binary64))
(*.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 re #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
#s(literal 1/2 binary64)
(.f64 (.f64 im im) (log.f64 base))
(log.f64 (pow.f64 base (*.f64 im im)))
(*.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 im #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(*.f64 (neg.f64 (/.f64 (log.f64 im) (log.f64 base))) (neg.f64 (/.f64 (log.f64 im) (log.f64 base))))
(*.f64 (fabs.f64 (/.f64 (log.f64 im) (log.f64 base))) (fabs.f64 (/.f64 (log.f64 im) (log.f64 base))))
(*.f64 (/.f64 (log.f64 im) (log.f64 base)) (/.f64 (log.f64 im) (log.f64 base)))
(pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))
(/.f64 (neg.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64))) (neg.f64 (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)))
(/.f64 (neg.f64 (log.f64 im)) (neg.f64 (log.f64 base)))
(/.f64 (log.f64 im) (log.f64 base))
(log.f64 im)
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (+.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (log.f64 base)) (.f64 (.f64 (.f64 im im) (log.f64 base)) (log.f64 im))) (.f64 (.f64 (*.f64 im im) (log.f64 base)) (log.f64 base)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))) (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (/.f64 (log.f64 im) (log.f64 base))))
(-.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base)))
(/.f64 (neg.f64 (fma.f64 (log.f64 (hypot.f64 re im)) (log.f64 base) (.f64 (atan2.f64 im re) #s(literal 0 binary64)))) (neg.f64 (/.f64 (-.f64 (pow.f64 (log.f64 base) #s(literal 6 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 (fma.f64 (log.f64 (hypot.f64 re im)) (log.f64 base) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (/.f64 (-.f64 (pow.f64 (log.f64 base) #s(literal 6 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 (.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)) (/.f64 (-.f64 (pow.f64 (log.f64 base) #s(literal 6 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 (atan2.f64 im re) #s(literal 0 binary64)) (/.f64 (-.f64 (pow.f64 (log.f64 base) #s(literal 6 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 (.f64 (.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)) (.f64 (log.f64 (hypot.f64 re im)) (log.f64 base))) (.f64 (.f64 (atan2.f64 im re) #s(literal 0 binary64)) (.f64 (atan2.f64 im re) #s(literal 0 binary64)))) (-.f64 (.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)) #s(literal 3 binary64)) (pow.f64 (.f64 (atan2.f64 im re) #s(literal 0 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)) (.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)) (-.f64 (.f64 (.f64 (atan2.f64 im re) #s(literal 0 binary64)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))) (.f64 (.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64))))))
(fma.f64 (log.f64 (hypot.f64 re im)) (log.f64 base) (*.f64 (atan2.f64 im re) #s(literal 0 binary64)))
(-.f64 (.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)) (.f64 (neg.f64 (atan2.f64 im re)) #s(literal 0 binary64)))
(+.f64 (.f64 (log.f64 (hypot.f64 re im)) (log.f64 base)) (.f64 (atan2.f64 im re) #s(literal 0 binary64)))
(*.f64 (log.f64 (hypot.f64 re im)) (log.f64 base))
(log.f64 (pow.f64 base (log.f64 (hypot.f64 re im))))
(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 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im)
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (.f64 re re) (.f64 im im)))
(/.f64 (+.f64 (pow.f64 (.f64 re re) #s(literal 3 binary64)) (pow.f64 (.f64 im im) #s(literal 3 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (.f64 re re) (*.f64 im im)))))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 im im))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 re re (*.f64 im im))
(-.f64 (.f64 re re) (.f64 (neg.f64 im) im))
(+.f64 (.f64 re re) (.f64 im im))
(*.f64 (atan2.f64 im re) #s(literal 0 binary64))
(atan2.f64 im re)
(/.f64 (neg.f64 (-.f64 (pow.f64 (log.f64 base) #s(literal 6 binary64)) #s(literal 0 binary64))) (neg.f64 (+.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 (log.f64 base) #s(literal 6 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 (log.f64 base) #s(literal 6 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 #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 (*.f64 (pow.f64 (log.f64 base) #s(literal 6 binary64)) (pow.f64 (log.f64 base) #s(literal 6 binary64))) #s(literal 0 binary64)) (+.f64 (pow.f64 (log.f64 base) #s(literal 6 binary64)) #s(literal 0 binary64)))
(/.f64 (-.f64 (pow.f64 (pow.f64 (log.f64 base) #s(literal 6 binary64)) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (pow.f64 (log.f64 base) #s(literal 6 binary64)) (pow.f64 (log.f64 base) #s(literal 6 binary64)) (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (log.f64 base) #s(literal 6 binary64)) #s(literal 0 binary64)))))
(-.f64 (pow.f64 (log.f64 base) #s(literal 6 binary64)) #s(literal 0 binary64))
(*.f64 (pow.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 3/2 binary64)) (pow.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 (log.f64 base) #s(literal 3 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 2 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(pow.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 3 binary64))
(pow.f64 (log.f64 base) #s(literal 6 binary64))
(exp.f64 (*.f64 (log.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 3 binary64)))
(exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 6 binary64)))
(*.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 1 binary64)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (log.f64 base) #s(literal 1 binary64)) (pow.f64 (log.f64 base) #s(literal 1 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 (neg.f64 (log.f64 base)) #s(literal 2 binary64))
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (neg.f64 (log.f64 base))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))
(log.f64 (pow.f64 base (log.f64 base)))
#s(literal 3 binary64)
(/.f64 (-.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (.f64 (+.f64 #s(literal 0 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))) (+.f64 #s(literal 0 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 2 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 (pow.f64 (log.f64 base) #s(literal 4 binary64)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 0 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64)) (-.f64 (.f64 (+.f64 #s(literal 0 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))) (+.f64 #s(literal 0 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 2 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 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (log.f64 base) #s(literal 2 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 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(pow.f64 (neg.f64 (log.f64 base)) #s(literal 4 binary64))
(pow.f64 (log.f64 base) #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 (neg.f64 (log.f64 base))) #s(literal 4 binary64)))
(exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 4 binary64)))
#s(literal 4 binary64)
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))))
(/.f64 (+.f64 #s(literal 0 binary64) (pow.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))) (.f64 #s(literal 0 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))))))
(-.f64 #s(literal 0 binary64) (*.f64 (neg.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal 0 binary64)))
(+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)))
(*.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))
(/.f64 (neg.f64 (/.f64 (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 0 binary64)))) (neg.f64 (fma.f64 (log.f64 base) (log.f64 base) #s(literal 0 binary64))))
(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 0 binary64))) (fma.f64 (log.f64 base) (log.f64 base) #s(literal 0 binary64)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64))) (neg.f64 (+.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (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)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (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)) (+.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 0 binary64))) (/.f64 #s(literal 0 binary64) (+.f64 (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 0 binary64))))
(/.f64 (-.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 3 binary64))) #s(literal 0 binary64)) (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)))
(/.f64 (+.f64 (pow.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.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 3 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)))))
(fma.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3/2 binary64)) (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3/2 binary64)) #s(literal 0 binary64))
(fma.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 3 binary64)) #s(literal 0 binary64))
(fma.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))) #s(literal 0 binary64))
(fma.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #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)) #s(literal 0 binary64))
(.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3/2 binary64)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 (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)) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (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 im re))) #s(literal 3 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))) #s(literal 3 binary64)))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64))) #s(literal 0 binary64)) (-.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 0 binary64)))
(/.f64 (+.f64 (pow.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 0 binary64)))))
(fma.f64 (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))
(+.f64 (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 0 binary64))
(*.f64 (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 1 binary64)) (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 1 binary64)))
(*.f64 (log.f64 (hypot.f64 im re)) (log.f64 (hypot.f64 im re)))
(pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
(/.f64 (neg.f64 (/.f64 (+.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))))) (neg.f64 (fma.f64 (log.f64 base) (log.f64 base) #s(literal 0 binary64))))
(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))) (fma.f64 (log.f64 base) (log.f64 base) #s(literal 0 binary64)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) #s(literal 0 binary64))) (neg.f64 (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))) (/.f64 #s(literal 0 binary64) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64))) #s(literal 0 binary64)) (-.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) #s(literal 0 binary64)))
(/.f64 (+.f64 (pow.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) #s(literal 0 binary64)))))
(fma.f64 (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 3 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)) #s(literal 0 binary64))
(+.f64 (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) #s(literal 0 binary64))
(*.f64 (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 3/2 binary64)) (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64)) (log.f64 (hypot.f64 im re)))
(*.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64)))
(pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)))
(*.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 (-.f64 (.f64 (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 im re))) #s(literal 2 binary64))) (.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))) (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))))
(/.f64 (+.f64 (pow.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) #s(literal 3 binary64))) (fma.f64 (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 im re))) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))) (.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))))))
(fma.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 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(fma.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(fma.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))) (+.f64 #s(literal 0 binary64) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (fma.f64 (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)) (.f64 #s(literal 0 binary64) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))))
(-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))
(+.f64 #s(literal 0 binary64) (.f64 (neg.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))) #s(literal 0 binary64)))
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 im im) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 6 binary64))))))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im))) (*.f64 im im))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im))) (*.f64 im im))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 6 binary64))))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 im))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (-.f64 (log.f64 im) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (+.f64 (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -2 binary64)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (+.f64 (log.f64 im) (.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -2 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 im (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) im))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 im (.f64 (.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 im (.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx re re)
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (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))) (/.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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.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))) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 im im) (log.f64 base)) #s(literal -1 binary64)))) (/.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))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))))
#s(approx (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))))
#s(approx (/ (* (* re re) 1/2) (* (* im im) (log base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))))
#s(approx (* (* re re) 1/2) (.f64 #s(literal 1/2 binary64) (.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 im im) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 6 binary64))))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 6 binary64))))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.f64 im))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (-.f64 (log.f64 im) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (+.f64 (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -2 binary64)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (+.f64 (log.f64 im) (.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -2 binary64)))))))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 im (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) im))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 im (.f64 (.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 im (.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx (+ (* re re) (* im im)) (*.f64 im im))
#s(approx (+ (* re re) (* im im)) (fma.f64 im im (*.f64 re re)))
#s(approx (* (atan2 im re) 0) #s(literal 0 binary64))
#s(approx (atan2 im re) (atan2.f64 im re))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 im im) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 6 binary64))))))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 im im)) (.f64 (log.f64 im) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 im im)) (.f64 (log.f64 im) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im))) (*.f64 im im))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow.f64 (log.f64 im) #s(literal 2 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (+.f64 (/.f64 (.f64 (.f64 re re) (log.f64 im)) (*.f64 im im)) (pow.f64 (log.f64 im) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (/.f64 (log.f64 im) (.f64 im im))) (pow.f64 (log.f64 im) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)) (.f64 (.f64 re re) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))))) (/.f64 (log.f64 im) (.f64 im im))) (pow.f64 (log.f64 im) #s(literal 2 binary64))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 im im) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 6 binary64))))))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64)))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 im im)) (.f64 (log.f64 im) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow.f64 (log.f64 im) #s(literal 3 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (*.f64 im im))) (pow.f64 (log.f64 im) #s(literal 3 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)))) (pow.f64 (log.f64 im) #s(literal 3 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 im im)) (.f64 (log.f64 im) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64)))))))))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (*.f64 im im)))) (pow.f64 (log.f64 im) #s(literal 3 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im))) (*.f64 im im))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(literal 0 binary64))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #s(literal 0 binary64))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 re re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) re)
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 re (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (.f64 re re))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 re re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 re re))))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 im im) (log.f64 base)) #s(literal -1 binary64)) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (log.f64 base)) #s(literal -1 binary64))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 re re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 re (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (.f64 re re))))))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 re re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 re re))))))))
#s(approx (+ (* re re) (* im im)) (*.f64 re re))
#s(approx (+ (* re re) (* im im)) (.f64 (.f64 re re) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 im im) (.f64 re re)))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.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) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (*.f64 re re))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (.f64 re re)))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))))))))))) (pow.f64 re #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (*.f64 re re))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (.f64 #s(literal -1 binary64) (pow.f64 (.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) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (*.f64 re re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (.f64 re re)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))))))))))) (pow.f64 re #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (*.f64 re re))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (neg.f64 (log.f64 re))) (*.f64 re re)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (neg.f64 (log.f64 re))) (.f64 re re)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (neg.f64 (log.f64 re))) (.f64 re re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/360 binary64) (/.f64 (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (*.f64 re re))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (.f64 re re)))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))))))))))) (pow.f64 re #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (*.f64 re re))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (*.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 3 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (.f64 re re)))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (*.f64 re re))))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) (neg.f64 (log.f64 re))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (.f64 re re))))))))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal -1 binary64))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 re re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) re))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 #s(literal -1 binary64) (.f64 re (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 #s(literal -1 binary64) (.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 #s(literal -1 binary64) (.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (*.f64 #s(literal -1 binary64) (/.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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 #s(literal -1 binary64) (.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)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal -1 binary64))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 re re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 #s(literal -1 binary64) re))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 #s(literal -1 binary64) (.f64 re (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 #s(literal -1 binary64) (.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re))))))))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 #s(literal -1 binary64) (.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.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) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (*.f64 re re))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (.f64 re re)))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))))))))))) (pow.f64 re #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (*.f64 re re))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (.f64 #s(literal -1 binary64) (pow.f64 (.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) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (*.f64 re re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (.f64 re re)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))))))))))) (pow.f64 re #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (*.f64 re re))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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 (sqrt (+ (* im im) (* re re)))) 2) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 (/.f64 #s(literal -1 binary64) re))) (*.f64 re re)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 re re)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (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 (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 re re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/360 binary64) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (*.f64 re re))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (.f64 re re)))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))))))))))) (pow.f64 re #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (*.f64 re re))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (*.f64 #s(literal -1 binary64) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 3 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (.f64 re re)))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (*.f64 re re))))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (.f64 re re))))))))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re))) (*.f64 re re))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re))) (*.f64 re re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 re))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (-.f64 (log.f64 re) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (+.f64 (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -2 binary64)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (+.f64 (log.f64 re) (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -2 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 re (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) re))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 re (.f64 (.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 re (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx im im)
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))) (/.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))) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.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))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (log.f64 base)) (/.f64 (.f64 (.f64 im im) (log.f64 im)) (log.f64 base))) (.f64 im im)))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 im) #s(literal 2 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (* (* im im) (log base)) (.f64 (.f64 im im) (log.f64 base)))
#s(approx (* im im) (*.f64 im im))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)))
#s(approx (/ (log im) (log base)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (log im) (log.f64 im))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (log.f64 base)))) (*.f64 im im)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.f64 re))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (-.f64 (log.f64 re) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (+.f64 (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -2 binary64)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (+.f64 (log.f64 re) (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -2 binary64)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 re (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) re))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 re (.f64 (.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 re (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 re re)) (.f64 (log.f64 re) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 re re)) (.f64 (log.f64 re) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re))) (*.f64 re re))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow.f64 (log.f64 re) #s(literal 2 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (+.f64 (/.f64 (.f64 (.f64 im im) (log.f64 re)) (*.f64 re re)) (pow.f64 (log.f64 re) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (/.f64 (log.f64 re) (.f64 re re))) (pow.f64 (log.f64 re) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))))) (/.f64 (log.f64 re) (.f64 re re))) (pow.f64 (log.f64 re) #s(literal 2 binary64))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64)))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 re re)) (.f64 (log.f64 re) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow.f64 (log.f64 re) #s(literal 3 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (*.f64 re re))) (pow.f64 (log.f64 re) #s(literal 3 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))))) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)))) (pow.f64 (log.f64 re) #s(literal 3 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 re re)) (.f64 (log.f64 re) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64)))))))))))) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (*.f64 re re)))) (pow.f64 (log.f64 re) #s(literal 3 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re))) (*.f64 re re))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 im (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 im im))))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (/ (log im) (log base)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (log im) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))) (.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 im (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im))))))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 im im))))))))
#s(approx (+ (* re re) (* im im)) (.f64 (.f64 im im) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 re re) (.f64 im im)))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.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) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (*.f64 im im))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (.f64 im im)))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))))))))))) (pow.f64 im #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (*.f64 im im))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (.f64 #s(literal -1 binary64) (pow.f64 (.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) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (*.f64 im im))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (.f64 im im)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))))))))))) (pow.f64 im #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (*.f64 im im))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (neg.f64 (log.f64 im))) (*.f64 im im)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (neg.f64 (log.f64 im))) (.f64 im im)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (neg.f64 (log.f64 im))) (.f64 im im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -1/360 binary64) (/.f64 (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (*.f64 im im))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (.f64 im im)))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))))))))))) (pow.f64 im #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (*.f64 im im))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (*.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 3 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (.f64 im im)))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (*.f64 im im))))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) (neg.f64 (log.f64 im))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (.f64 im im))))))))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) im))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 #s(literal -1 binary64) (.f64 im (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 #s(literal -1 binary64) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 #s(literal -1 binary64) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 re (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (.f64 re (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))) #s(literal 3 binary64)))))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))) #s(literal 3 binary64)))))) (.f64 (log.f64 base) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (.f64 re (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))) #s(literal 3 binary64)))))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (/ (log im) (log base)) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 base)))
#s(approx (log im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (*.f64 #s(literal -1 binary64) (/.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)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 #s(literal -1 binary64) (.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)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 #s(literal -1 binary64) im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 #s(literal -1 binary64) (.f64 im (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 #s(literal -1 binary64) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))))))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 #s(literal -1 binary64) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.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) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (*.f64 im im))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (.f64 im im)))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))))) (pow.f64 im #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (*.f64 im im))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (.f64 #s(literal -1 binary64) (pow.f64 (.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) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (*.f64 im im))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (.f64 im im)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))))) (pow.f64 im #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (*.f64 im im))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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 (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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 (sqrt (+ (* im im) (* re re)))) 2) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 (/.f64 #s(literal -1 binary64) im))) (*.f64 im im)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 im im)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (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 (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 im im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -1/360 binary64) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (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 (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (*.f64 im im))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (.f64 im im)))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))))) (pow.f64 im #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (*.f64 im im))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (*.f64 #s(literal -1 binary64) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 3 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (.f64 im im)))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (*.f64 im im))))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 3) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (.f64 im im))))))))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#s(approx (log base) (log.f64 base))
#s(approx base base)
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#s(approx (+ (* (log base) (log base)) (* 0 0)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#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)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 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)) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#s(approx (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (- (pow (pow (log base) 2) 3) 0) (pow.f64 (log.f64 base) #s(literal 6 binary64)))
#s(approx (pow (pow (log base) 2) 3) (pow.f64 (log.f64 base) #s(literal 6 binary64)))
#s(approx (* (log base) (log base)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
#s(approx (pow (log base) 4) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
#s(approx (+ 0 (* (pow (log base) 2) 0)) #s(literal 0 binary64))
#s(approx (* (pow (log base) 2) 0) #s(literal 0 binary64))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (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))))) 3) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)))
#s(approx (pow (log base) 3) (pow.f64 (log.f64 base) #s(literal 3 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)))
#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 (* (log base) (log (sqrt (+ (* im im) (* re re))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (log base) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 base))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (+ (* (log base) (log base)) (* 0 0)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#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)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (neg.f64 (log.f64 base)))) (.f64 #s(literal 1 binary64) (/.f64 (log.f64 im) (neg.f64 (log.f64 base)))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))))
#s(approx (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))))
#s(approx (/ (* (* re re) 1/2) (* (* im im) (log base))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (neg.f64 (log.f64 base))))))
#s(approx (* (* im im) (log base)) (.f64 #s(literal -1 binary64) (.f64 (*.f64 im im) (neg.f64 (log.f64 base)))))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)))
#s(approx (/ (log im) (log base)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (neg.f64 (log.f64 base)))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (neg.f64 (log.f64 base)))) (.f64 #s(literal 1 binary64) (/.f64 (log.f64 im) (neg.f64 (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (- (pow (pow (log base) 2) 3) 0) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 6 binary64)))
#s(approx (pow (pow (log base) 2) 3) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 6 binary64)))
#s(approx (* (log base) (log base)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
#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))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base))) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base))) #s(literal 3 binary64))))
#s(approx (pow (log base) 3) (*.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 2 binary64)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (log base) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))))
#s(approx (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (+ (* (log base) (log base)) (* 0 0)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64)))
#s(approx (* (log base) (log base)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 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 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))) (/.f64 (log.f64 im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64)))))
#s(approx (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64))))))
#s(approx (/ (* (* re re) 1/2) (* (* im im) (log base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))))
#s(approx (* (* im im) (log base)) (.f64 (.f64 im im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64))))
#s(approx (/ (log im) (log base)) (/.f64 (log.f64 im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))) (/.f64 (log.f64 im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))))) (/.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (/ (- (pow (pow (log base) 2) 3) 0) (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0)))) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64)))
#s(approx (- (pow (pow (log base) 2) 3) 0) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 6 binary64)))
#s(approx (pow (pow (log base) 2) 3) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 6 binary64)))
#s(approx (* (log base) (log base)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (pow (log base) 4) (+ 0 (* (pow (log base) 2) 0))) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 4 binary64)))
#s(approx (pow (log base) 4) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 4 binary64)))
#s(approx (/ (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (/ (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0)) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 3 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 3 binary64)))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow (log base) 2)) 0) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 2 binary64)))
#s(approx (/ (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (/ (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (+ (* (pow (log (sqrt (+ (* im im) (* re re)))) 3) (pow (log base) 3)) 0) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 3 binary64)))
#s(approx (pow (log base) 3) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 3 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (- 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 2 binary64)))

eval259.0ms (1.6%)

Memory: -5.1MiB live, 469.0MiB allocated; 84ms collecting garbage
Compiler: Compiled 123 820 to 7 014 computations (94.3% saved)

prune4.2s (25.4%)

Memory

15.9MiB live, 6 528.3MiB allocated; 332ms collecting garbage

Pruning

11 alts after pruning (8 fresh and 3 done)

	Pruned	Kept	Total
New	1 873	5	1 878
Fresh	6	3	9
Picked	3	2	5
Done	0	1	1
Total	1 882	11	1 893

Accuracy

100.0%

Counts

1 893 → 11

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)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
✓	98.9%	(/.f64 (/.f64 (fma.f64 (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 3 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	50.3%	(/.f64 (/.f64 (-.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (exp.f64 (.f64 (log.f64 (log.f64 base)) #s(literal 1 binary64)))) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
▶	99.1%	(/.f64 (/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #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)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.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.2%	(/.f64 (/.f64 (-.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64))) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
✓	98.7%	(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	54.7%	(/.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 (-.f64 (pow.f64 (pow.f64 (log.f64 base) #s(literal 6 binary64)) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (pow.f64 (log.f64 base) #s(literal 6 binary64)) (pow.f64 (log.f64 base) #s(literal 6 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 6 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.1%	(*.f64 (/.f64 (fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) #s(literal 0 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
	86.1%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base))) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base)))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (-.f64 (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base)))))
▶	47.9%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base))) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base)))) (.f64 (/.f64 (log.f64 im) (log.f64 base)) (/.f64 (log.f64 im) (log.f64 base)))) #s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (log.f64 base)) #s(literal -1 binary64))))))))
✓	99.5%	#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)))

Compiler

Compiled 948 to 479 computations (49.5% saved)

series251.0ms (1.5%)

Memory

-12.5MiB live, 320.7MiB allocated; 14ms collecting garbage

Counts

59 → 728

Calls

Call 1

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

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

Calls

9 calls:

Time	Variable		Point	Expression
31.0ms	base	@	inf	((/ (/ (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) (pow (log base) 2) (log base) base 2 (pow (log (sqrt (+ (* im im) (* re re)))) 2) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re 0 (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (/ (* (* re re) 1/2) (* (* im im) (log base))) (* (* re re) 1/2) (* re re) 1/2 (* (* im im) (log base)) (* im im) (* (/ (log im) (log base)) (/ (log im) (log base))) (/ (log im) (log base)) (log im) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) -1 (/ (log im) (* (* re re) (log base))) (* (* re re) (log base)) (* 1/2 (pow (* (* im im) (log base)) -1)) (pow (* (* im im) (log base)) -1) (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4) 4 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 3 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (* (pow (log base) 2) 0))
31.0ms	base	@	-inf	((/ (/ (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) (pow (log base) 2) (log base) base 2 (pow (log (sqrt (+ (* im im) (* re re)))) 2) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re 0 (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (/ (* (* re re) 1/2) (* (* im im) (log base))) (* (* re re) 1/2) (* re re) 1/2 (* (* im im) (log base)) (* im im) (* (/ (log im) (log base)) (/ (log im) (log base))) (/ (log im) (log base)) (log im) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) -1 (/ (log im) (* (* re re) (log base))) (* (* re re) (log base)) (* 1/2 (pow (* (* im im) (log base)) -1)) (pow (* (* im im) (log base)) -1) (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4) 4 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 3 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (* (pow (log base) 2) 0))
30.0ms	base	@	0	((/ (/ (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) (pow (log base) 2) (log base) base 2 (pow (log (sqrt (+ (* im im) (* re re)))) 2) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re 0 (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (/ (* (* re re) 1/2) (* (* im im) (log base))) (* (* re re) 1/2) (* re re) 1/2 (* (* im im) (log base)) (* im im) (* (/ (log im) (log base)) (/ (log im) (log base))) (/ (log im) (log base)) (log im) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) -1 (/ (log im) (* (* re re) (log base))) (* (* re re) (log base)) (* 1/2 (pow (* (* im im) (log base)) -1)) (pow (* (* im im) (log base)) -1) (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4) 4 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 3 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (* (pow (log base) 2) 0))
24.0ms	im	@	inf	((/ (/ (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) (pow (log base) 2) (log base) base 2 (pow (log (sqrt (+ (* im im) (* re re)))) 2) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re 0 (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (/ (* (* re re) 1/2) (* (* im im) (log base))) (* (* re re) 1/2) (* re re) 1/2 (* (* im im) (log base)) (* im im) (* (/ (log im) (log base)) (/ (log im) (log base))) (/ (log im) (log base)) (log im) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) -1 (/ (log im) (* (* re re) (log base))) (* (* re re) (log base)) (* 1/2 (pow (* (* im im) (log base)) -1)) (pow (* (* im im) (log base)) -1) (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4) 4 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 3 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (* (pow (log base) 2) 0))
23.0ms	re	@	inf	((/ (/ (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (- (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) 0) (* (pow (log base) 2) (pow (log (sqrt (+ (* im im) (* re re)))) 2)) (pow (log base) 2) (log base) base 2 (pow (log (sqrt (+ (* im im) (* re re)))) 2) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re 0 (- (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (* (log base) (log (sqrt (+ (* im im) (* re re))))) (+ (* (log base) (log base)) (* 0 0)) (* (log base) (log base)) (* 0 0) (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (/ (* (* re re) 1/2) (* (* im im) (log base))) (* (* re re) 1/2) (* re re) 1/2 (* (* im im) (log base)) (* im im) (* (/ (log im) (log base)) (/ (log im) (log base))) (/ (log im) (log base)) (log im) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) -1 (/ (log im) (* (* re re) (log base))) (* (* re re) (log base)) (* 1/2 (pow (* (* im im) (log base)) -1)) (pow (* (* im im) (log base)) -1) (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4) 4 (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 3 (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (* (pow (log base) 2) 0))

rewrite268.0ms (1.6%)

Memory

28.9MiB live, 352.2MiB allocated; 17ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1972	38552
0	2092	34421
0	8109	33130

Stop Event

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

Counts

787 → 936

Calls

Call 1

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

Outputs
(/.f64 (neg.f64 (/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))) (neg.f64 (fma.f64 (log.f64 base) (log.f64 base) #s(literal 0 binary64))))
(/.f64 (/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) (fma.f64 (log.f64 base) (log.f64 base) #s(literal 0 binary64)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64))) (neg.f64 (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))
(-.f64 (/.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))) #s(literal 0 binary64))) (/.f64 #s(literal 0 binary64) (-.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(/.f64 (-.f64 (.f64 (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 im re))) #s(literal 2 binary64))) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)))
(/.f64 (-.f64 (pow.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (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 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)))))
(-.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 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 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 1 binary64)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 1 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 (neg.f64 (log.f64 base)) #s(literal 2 binary64))
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 (log.f64 base))) #s(literal 2 binary64)))
(log.f64 (pow.f64 base (log.f64 base)))
(log.f64 base)
base
#s(literal 2 binary64)
(*.f64 (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 1 binary64)) (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 1 binary64)))
(*.f64 (log.f64 (hypot.f64 im re)) (log.f64 (hypot.f64 im re)))
(pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
(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 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
im
re
#s(literal 0 binary64)
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64))) (neg.f64 (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (fma.f64 (log.f64 base) (log.f64 (hypot.f64 im re)) #s(literal 0 binary64)))
(-.f64 (/.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)) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))) (/.f64 #s(literal 0 binary64) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))))
(-.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))
(*.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))
(log.f64 (pow.f64 (hypot.f64 im re) (log.f64 base)))
(/.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 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 1 binary64)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 1 binary64)) #s(literal 0 binary64))
(fma.f64 (fabs.f64 (log.f64 base)) (fabs.f64 (log.f64 base)) #s(literal 0 binary64))
(fma.f64 (neg.f64 (log.f64 base)) (neg.f64 (log.f64 base)) #s(literal 0 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 (pow.f64 (log.f64 base) #s(literal 1 binary64)) (pow.f64 (log.f64 base) #s(literal 1 binary64)))
(*.f64 (pow.f64 (neg.f64 (log.f64 base)) #s(literal 1 binary64)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 1 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 (neg.f64 (log.f64 base)) #s(literal 2 binary64))
(pow.f64 (log.f64 base) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 (log.f64 base))) #s(literal 2 binary64)))
(log.f64 (pow.f64 base (log.f64 base)))
#s(literal 0 binary64)
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))) #s(approx (- (/ ( (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)))) (neg.f64 #s(approx (- (/ ( (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))) #s(approx (- (/ ( (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))))))
(-.f64 (/.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) #s(approx (- (/ ( (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))))))) (/.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)) #s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))))))))
(.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)) (/.f64 (log.f64 im) (log.f64 base))) (-.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64))) (.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))))))
(fma.f64 (neg.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))) (neg.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))) (*.f64 (neg.f64 (/.f64 (log.f64 im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
(fma.f64 (fabs.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))) (fabs.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))) (*.f64 (neg.f64 (/.f64 (log.f64 im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
(fma.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (*.f64 (neg.f64 (/.f64 (log.f64 im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
(-.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64)) (.f64 (neg.f64 (/.f64 (log.f64 im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
(.f64 (neg.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))) (neg.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))))
(.f64 (fabs.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))) (fabs.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))))
(.f64 (.f64 (/.f64 (.f64 re re) (.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))))
(pow.f64 (.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 re re) #s(literal 1/2 binary64))) (.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 (.f64 im im) (log.f64 base))))
(.f64 (/.f64 (.f64 re re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (log.f64 base)))
(/.f64 (neg.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64))) (neg.f64 (.f64 (.f64 im im) (log.f64 base))))
(/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base)))
(.f64 (.f64 re re) #s(literal 1/2 binary64))
(*.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 re #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
#s(literal 1/2 binary64)
(.f64 (.f64 im im) (log.f64 base))
(log.f64 (pow.f64 base (*.f64 im im)))
(*.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 im #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(*.f64 (neg.f64 (/.f64 (log.f64 im) (log.f64 base))) (neg.f64 (/.f64 (log.f64 im) (log.f64 base))))
(*.f64 (fabs.f64 (/.f64 (log.f64 im) (log.f64 base))) (fabs.f64 (/.f64 (log.f64 im) (log.f64 base))))
(*.f64 (/.f64 (log.f64 im) (log.f64 base)) (/.f64 (log.f64 im) (log.f64 base)))
(pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))
(/.f64 (neg.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64))) (neg.f64 (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)))
(/.f64 (neg.f64 (log.f64 im)) (neg.f64 (log.f64 base)))
(/.f64 (log.f64 im) (log.f64 base))
(log.f64 im)
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))))))
(.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))))
(fma.f64 (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base)))) (.f64 re re) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))) (.f64 re re)))
(fma.f64 (.f64 re re) (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base)))) (.f64 (.f64 re re) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))))
(+.f64 (.f64 (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base)))) (.f64 re re)) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))) (*.f64 re re)))
(+.f64 (.f64 (.f64 re re) (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))))) (.f64 (.f64 re re) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base)))) (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base)))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base)))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base)))) (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base)))) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))) (.f64 (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))))))
(fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))))
(-.f64 (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base)))) (.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))))
(+.f64 (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base)))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))))
#s(literal -1 binary64)
(/.f64 (neg.f64 (log.f64 im)) (neg.f64 (.f64 (.f64 re re) (log.f64 base))))
(/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base)))
(.f64 (.f64 re re) (log.f64 base))
(log.f64 (pow.f64 base (*.f64 re re)))
(.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))
(.f64 (pow.f64 (.f64 (.f64 im im) (log.f64 base)) #s(literal -1/2 binary64)) (pow.f64 (.f64 (*.f64 im im) (log.f64 base)) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))
(pow.f64 (.f64 (.f64 im im) (log.f64 base)) #s(literal -1 binary64))
(/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) (log.f64 base)))
(/.f64 #s(literal -1 binary64) (neg.f64 (.f64 (.f64 im im) (log.f64 base))))
(exp.f64 (.f64 (log.f64 (.f64 (*.f64 im im) (log.f64 base))) #s(literal -1 binary64)))
(*.f64 (/.f64 (fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) #s(literal 0 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(/.f64 (neg.f64 (fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) #s(literal 0 binary64))) (neg.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(/.f64 (fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) #s(literal 0 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(+.f64 (/.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (/.f64 #s(literal 0 binary64) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base))) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 0 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) (.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) (-.f64 #s(literal 0 binary64) (.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 0 binary64)))))
(fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) #s(literal 0 binary64))
(+.f64 (*.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)) #s(literal 0 binary64))
(*.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
(pow.f64 (neg.f64 (log.f64 base)) #s(literal 4 binary64))
(pow.f64 (log.f64 base) #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 (neg.f64 (log.f64 base))) #s(literal 4 binary64)))
(exp.f64 (*.f64 (log.f64 (log.f64 base)) #s(literal 4 binary64)))
#s(literal 4 binary64)
(/.f64 (neg.f64 (/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))) (neg.f64 (fma.f64 (log.f64 base) (log.f64 base) #s(literal 0 binary64))))
(/.f64 (/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) (fma.f64 (log.f64 base) (log.f64 base) #s(literal 0 binary64)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64))) (neg.f64 (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))
(-.f64 (/.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))) #s(literal 0 binary64))) (/.f64 #s(literal 0 binary64) (-.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(/.f64 (-.f64 (.f64 (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 im re))) #s(literal 2 binary64))) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)))
(/.f64 (-.f64 (pow.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (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 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)))))
(-.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 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 (neg.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64))) (neg.f64 (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 0 binary64)) (fma.f64 (log.f64 base) (log.f64 (hypot.f64 im re)) #s(literal 0 binary64)))
(-.f64 (/.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)) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))) (/.f64 #s(literal 0 binary64) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))))
(-.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))
(/.f64 (-.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 3 binary64))) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)))
(/.f64 (-.f64 (pow.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.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 3 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)))))
(-.f64 (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64))
(.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3/2 binary64)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3/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 (log.f64 base) #s(literal 3 binary64)) (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 3 binary64)))
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (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 im re))) #s(literal 3 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))) #s(literal 3 binary64)))
#s(literal 3 binary64)
(/.f64 (-.f64 (.f64 (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 im re))) #s(literal 2 binary64))) (.f64 (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))) (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))))
(/.f64 (+.f64 (pow.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) #s(literal 3 binary64))) (fma.f64 (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 im re))) #s(literal 2 binary64)) (-.f64 (.f64 (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))) (.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))))))
(fma.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 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(fma.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(fma.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))
(/.f64 (+.f64 #s(literal 0 binary64) (pow.f64 (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (.f64 (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) (.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))))))
(-.f64 #s(literal 0 binary64) (.f64 (neg.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re)))) #s(literal 0 binary64)))
(+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64)))
(.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))
(/.f64 (neg.f64 (fma.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)) #s(literal 0 binary64)))) (neg.f64 (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)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
(+.f64 (/.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 2 binary64)) #s(literal 0 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64))))
(/.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)))) (.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)) (.f64 (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))) (*.f64 (pow.f64 (log.f64 base) #s(literal 2 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)) (pow.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)) #s(literal 3 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 (.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)) (.f64 (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))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))))))
(fma.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)) #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))) (*.f64 (neg.f64 (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))) (*.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)))
(*.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 6 binary64))))))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im))) (*.f64 im im))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im))) (*.f64 im im))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow.f64 (log.f64 im) #s(literal 2 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (+.f64 (/.f64 (.f64 (.f64 re re) (log.f64 im)) (*.f64 im im)) (pow.f64 (log.f64 im) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (/.f64 (log.f64 im) (.f64 im im))) (pow.f64 (log.f64 im) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)) (.f64 (.f64 re re) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))))) (/.f64 (log.f64 im) (.f64 im im))) (pow.f64 (log.f64 im) #s(literal 2 binary64))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 im))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (-.f64 (log.f64 im) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (+.f64 (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -2 binary64)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (+.f64 (log.f64 im) (.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -2 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 im (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) im))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 im (.f64 (.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 im (.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 re re) (pow.f64 im #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx re re)
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 6 binary64))))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (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))) (/.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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.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))) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))) (/.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))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))))
#s(approx (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))))
#s(approx (/ (* (* re re) 1/2) (* (* im im) (log base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))))
#s(approx (* (* re re) 1/2) (.f64 #s(literal 1/2 binary64) (.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (*.f64 re re) (log.f64 base)))))
#s(approx (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))) (*.f64 re re)))
#s(approx (/ (log im) (* (* re re) (log base))) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))))
#s(approx (* (* re re) (log base)) (.f64 (.f64 re re) (log.f64 base)))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 6 binary64))))))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 6 binary64))))))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im))) (*.f64 im im))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im))) (*.f64 im im))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (*.f64 (log.f64 base) (log.f64 im)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)) (.f64 (log.f64 base) (log.f64 im))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 (log.f64 base) (log.f64 im) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (pow.f64 im #s(literal 6 binary64))))))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 im im)) (.f64 (log.f64 im) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (.f64 im im)) (.f64 (log.f64 im) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 im im))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im))) (*.f64 im im))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (*.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 im)) (.f64 im im))) (pow.f64 (.f64 (log.f64 base) (log.f64 im)) #s(literal 2 binary64))))
#s(approx (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)) #s(literal 0 binary64))
#s(approx (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0) #s(literal 0 binary64))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (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) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 (.f64 re re) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 re re) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 base))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (*.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) 2) 0)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im im)) (.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) 2) 0)) (fma.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 im im)))) (.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) 2) 0)) (fma.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 im im)) (.f64 (.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (pow.f64 im #s(literal 6 binary64))))))) (.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) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (neg.f64 (log.f64 re))) (*.f64 re re)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (neg.f64 (log.f64 re))) (.f64 re re)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (neg.f64 (log.f64 re))) (.f64 re re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/360 binary64) (/.f64 (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 re re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) re)
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 re (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (.f64 re re))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 re re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 re re))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (.f64 (.f64 re re) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))) (/.f64 (log.f64 im) (.f64 (*.f64 re re) (log.f64 base))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))))))
#s(approx (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))))
#s(approx (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64)))))))
#s(approx (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (log.f64 base))))
#s(approx (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.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) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (*.f64 re re))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (.f64 re re)))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))))))))))) (pow.f64 re #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (*.f64 re re))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (.f64 #s(literal -1 binary64) (pow.f64 (.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) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (*.f64 re re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (.f64 re re)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))))))))))) (pow.f64 re #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (neg.f64 (log.f64 re))) #s(literal 2 binary64)))) (*.f64 re re))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (neg.f64 (log.f64 re)))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (.f64 #s(literal -1 binary64) (.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)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (neg.f64 (log.f64 re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 re re)))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re re))))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (neg.f64 (log.f64 re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re re)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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 (sqrt (+ (* im im) (* re re)))) 2) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 (/.f64 #s(literal -1 binary64) re))) (*.f64 re re)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 re re)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (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 (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 re re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/360 binary64) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal -1 binary64))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 re re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) re))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 #s(literal -1 binary64) (.f64 re (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 #s(literal -1 binary64) (.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 #s(literal -1 binary64) (.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (*.f64 re re)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.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) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (*.f64 re re))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (.f64 re re)))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))))))))))) (pow.f64 re #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (*.f64 re re))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (.f64 #s(literal -1 binary64) (pow.f64 (.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) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (*.f64 re re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (.f64 re re)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))))))))))) (pow.f64 re #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal 2 binary64))))))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (pow.f64 (.f64 im (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))) (*.f64 re re))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))) (.f64 re re)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re)))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (.f64 re re) (log.f64 base))))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base)))))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64)))) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))))))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (.f64 #s(literal -1 binary64) (.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)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 re re)))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re re))))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 im #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re re)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re))) (*.f64 re re))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re))) (*.f64 re re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow.f64 (log.f64 re) #s(literal 2 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (+.f64 (/.f64 (.f64 (.f64 im im) (log.f64 re)) (*.f64 re re)) (pow.f64 (log.f64 re) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (/.f64 (log.f64 re) (.f64 re re))) (pow.f64 (log.f64 re) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)) (.f64 (.f64 im im) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))))) (/.f64 (log.f64 re) (.f64 re re))) (pow.f64 (log.f64 re) #s(literal 2 binary64))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 re))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (-.f64 (log.f64 re) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (+.f64 (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -2 binary64)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (+.f64 (log.f64 re) (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -2 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 re (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) re))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 re (.f64 (.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 re (.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx im im)
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))) (/.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))) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.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))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (log.f64 base)) (/.f64 (.f64 (.f64 im im) (log.f64 im)) (log.f64 base))) (.f64 im im)))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 im) #s(literal 2 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (* (* im im) (log base)) (.f64 (.f64 im im) (log.f64 base)))
#s(approx (* im im) (*.f64 im im))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)))
#s(approx (/ (log im) (log base)) (/.f64 (log.f64 im) (log.f64 base)))
#s(approx (log im) (log.f64 im))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (log.f64 base)))) (*.f64 im im)))
#s(approx (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (log.f64 base)))) (*.f64 im im)))
#s(approx (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (/.f64 (.f64 im im) (.f64 re re)) (/.f64 (log.f64 im) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 base) #s(literal -1 binary64)))) (*.f64 im im)))
#s(approx (* 1/2 (pow (* (* im im) (log base)) -1)) (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (log.f64 base))))
#s(approx (pow (* (* im im) (log base)) -1) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 re) (log.f64 base)))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re))) (*.f64 re re))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re))) (*.f64 re re))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (*.f64 (log.f64 base) (log.f64 re)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (.f64 re re)) (.f64 (log.f64 base) (log.f64 re))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 (log.f64 base) (log.f64 re) (.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 base) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 base) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (log.f64 base)) (pow.f64 re #s(literal 6 binary64))))))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 re re)) (.f64 (log.f64 re) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 re re)) (.f64 (log.f64 re) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re)) (/.f64 (pow.f64 (log.f64 re) #s(literal 2 binary64)) (.f64 re re))))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re))) (*.f64 re re))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (*.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -6 binary64))))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 re) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal -4 binary64)))))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 re)) (.f64 re re))) (pow.f64 (.f64 (log.f64 base) (log.f64 re)) #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (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) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 im im) (.f64 (*.f64 re re) (log.f64 base))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 (.f64 im im) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 im im) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 re re) (log.f64 base)) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 base))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 re)))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 re re)) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 re))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (fma.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 re re)))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 re))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (fma.f64 (.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (.f64 re re)) (.f64 (.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 re #s(literal 4 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (pow.f64 re #s(literal 6 binary64))))))) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 re))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (neg.f64 (log.f64 im))) (*.f64 im im)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (neg.f64 (log.f64 im))) (.f64 im im)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (neg.f64 (log.f64 im))) (.f64 im im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -1/360 binary64) (/.f64 (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 im (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 im im))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 im im))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (/ (log im) (log base)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (log im) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))) (.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)))))
#s(approx (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)))
#s(approx (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) (/.f64 (neg.f64 (log.f64 im)) (.f64 (.f64 re re) (log.f64 base))))
#s(approx (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))) (/.f64 (neg.f64 (log.f64 im)) (.f64 (*.f64 re re) (log.f64 base)))))
#s(approx (/ (log im) (* (* re re) (log base))) (.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (.f64 (*.f64 re re) (log.f64 base)))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (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 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.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) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (*.f64 im im))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (.f64 im im)))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))))))))))) (pow.f64 im #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (*.f64 im im))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (.f64 #s(literal -1 binary64) (pow.f64 (.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) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (*.f64 im im))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (.f64 im im)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))))))))))) (pow.f64 im #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (neg.f64 (log.f64 im))) #s(literal 2 binary64)))) (*.f64 im im))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (neg.f64 (log.f64 im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (neg.f64 (log.f64 im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (.f64 #s(literal -1 binary64) (.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)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (neg.f64 (log.f64 im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 im im)))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im im))))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (neg.f64 (log.f64 im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im im)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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 (sqrt (+ (* im im) (* re re)))) 2) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 (/.f64 #s(literal -1 binary64) im))) (*.f64 im im)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))
#s(approx (pow (log (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 im im)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (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 (sqrt (+ (* im im) (* re re)))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 im im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -1/360 binary64) (/.f64 (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (pow.f64 im #s(literal 4 binary64))) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 im im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) im))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 #s(literal -1 binary64) (.f64 im (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 #s(literal -1 binary64) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (.f64 #s(literal -1 binary64) (.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.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))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 re (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (.f64 re (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))) #s(literal 3 binary64)))))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))) #s(literal 3 binary64)))))) (.f64 (log.f64 base) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (.f64 re (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 im im) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (pow.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (log.f64 base) #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base))) #s(literal 3 binary64)))))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) (/.f64 (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
#s(approx (/ (log im) (log base)) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 base)))
#s(approx (log im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 base)))))
#s(approx (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 base))))
#s(approx (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (.f64 (*.f64 re re) (log.f64 base)))))
#s(approx (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 base) #s(literal -1 binary64))))))
#s(approx (/ (log im) (* (* re re) (log base))) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (.f64 (.f64 re re) (log.f64 base))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64))))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (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 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (pow.f64 (log.f64 base) #s(literal 3 binary64)))))))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) 0) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (*.f64 im im)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 base)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (log.f64 base) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (log.f64 base)) (.f64 im im)))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.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) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (*.f64 im im))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (.f64 im im)))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))))) (pow.f64 im #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (*.f64 im im))))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (.f64 #s(literal -1 binary64) (pow.f64 (.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) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (*.f64 im im))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (.f64 im im)))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (fma.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))))) (pow.f64 im #s(literal 6 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (pow.f64 (.f64 re (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))) (*.f64 im im))))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (pow.f64 (*.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (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) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 re re) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))) (.f64 im im)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))))))) (pow.f64 im #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base))))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base)))))))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 base)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 base))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64)))) (.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) (log.f64 base))))))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (.f64 #s(literal -1 binary64) (.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)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (*.f64 im im)))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (pow.f64 im #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im im))))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (/.f64 #s(literal -1 binary64) im))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (fma.f64 #s(literal 30 binary64) (pow.f64 re #s(literal 6 binary64)) (.f64 #s(literal 90 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 re re) (pow.f64 (log.f64 base) #s(literal 3 binary64))) (.f64 im im)))))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
#s(approx (* (log base) (log base)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (log base) (log.f64 base))
#s(approx base base)
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#s(approx (+ (* (log base) (log base)) (* 0 0)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#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)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (log.f64 base)))) (/.f64 (log.f64 im) (log.f64 base)))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 3 binary64))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#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) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (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))))) 3) (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) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 im re)) (log.f64 base)))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (*.f64 (pow.f64 (log.f64 base) #s(literal 3 binary64)) (log.f64 (hypot.f64 im re))))
#s(approx (* (pow (log base) 2) 0) #s(literal 0 binary64))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (neg.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 (hypot.f64 im re)) (neg.f64 (log.f64 base))) #s(literal 2 binary64)))
#s(approx (* (log base) (log base)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#s(approx (log base) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 base))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (+ (* (log base) (log base)) (* 0 0)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
#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)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (neg.f64 (log.f64 base)))) (.f64 #s(literal 1 binary64) (/.f64 (log.f64 im) (neg.f64 (log.f64 base)))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64))))
#s(approx (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))))
#s(approx (/ (* (* re re) 1/2) (* (* im im) (log base))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (neg.f64 (log.f64 base))))))
#s(approx (* (* im im) (log base)) (.f64 #s(literal -1 binary64) (.f64 (*.f64 im im) (neg.f64 (log.f64 base)))))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) (pow.f64 (/.f64 (log.f64 im) (log.f64 base)) #s(literal 2 binary64)))
#s(approx (/ (log im) (log base)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (neg.f64 (log.f64 base)))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (neg.f64 (log.f64 base)))) (.f64 #s(literal 1 binary64) (/.f64 (log.f64 im) (neg.f64 (log.f64 base))))))
#s(approx (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (.f64 (.f64 re re) (-.f64 (/.f64 (log.f64 im) (.f64 (.f64 re re) (neg.f64 (log.f64 base)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (neg.f64 (log.f64 base))) #s(literal -1 binary64))))))
#s(approx (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) (-.f64 (/.f64 (log.f64 im) (.f64 (.f64 re re) (neg.f64 (log.f64 base)))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (neg.f64 (log.f64 base))) #s(literal -1 binary64)))))
#s(approx (/ (log im) (* (* re re) (log base))) (.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (*.f64 re re) (neg.f64 (log.f64 base))))))
#s(approx (* (* re re) (log base)) (.f64 #s(literal -1 binary64) (.f64 (*.f64 re re) (neg.f64 (log.f64 base)))))
#s(approx (* 1/2 (pow (* (* im im) (log base)) -1)) (/.f64 #s(literal -1/2 binary64) (.f64 (.f64 im im) (neg.f64 (log.f64 base)))))
#s(approx (pow (* (* im im) (log base)) -1) (/.f64 #s(literal -1 binary64) (.f64 (.f64 im im) (neg.f64 (log.f64 base)))))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#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) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (neg.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 (hypot.f64 im re)) (neg.f64 (log.f64 base))) #s(literal 2 binary64)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base))) #s(literal 3 binary64))))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base))) #s(literal 3 binary64))))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base))) #s(literal 2 binary64)))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 base)))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (.f64 #s(literal -1 binary64) (.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (neg.f64 (log.f64 base)) #s(literal 3 binary64)))))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 2 binary64)))
#s(approx (* (log base) (log base)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64)))
#s(approx (log base) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (* (log base) (log (sqrt (+ (* im im) (* re re))))) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (+ (* (log base) (log base)) (* 0 0)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64)))
#s(approx (* (log base) (log base)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 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 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (/ (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base)))) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))) (/.f64 (log.f64 im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))))
#s(approx (- (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (* (/ (log im) (log base)) (/ (log im) (log base)))) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64)))))
#s(approx (* (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (* (* re re) 1/2) (* (* im im) (log base)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64))))))
#s(approx (/ (* (* re re) 1/2) (* (* im im) (log base))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))))
#s(approx (* (* im im) (log base)) (.f64 (.f64 im im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (* (/ (log im) (log base)) (/ (log im) (log base))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 2 binary64))))
#s(approx (/ (log im) (log base)) (/.f64 (log.f64 im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 re re) (.f64 (.f64 im im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))) (/.f64 (log.f64 im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))))))
#s(approx (* (* re re) (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1)))) (.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal -1 binary64))))))
#s(approx (+ (* -1 (/ (log im) (* (* re re) (log base)))) (* 1/2 (pow (* (* im im) (log base)) -1))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal -1 binary64)))))
#s(approx (/ (log im) (* (* re re) (log base))) (/.f64 (log.f64 im) (.f64 (.f64 re re) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))))))
#s(approx (* (* re re) (log base)) (.f64 (.f64 re re) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (* 1/2 (pow (* (* im im) (log base)) -1)) (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 im im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))))))
#s(approx (pow (* (* im im) (log base)) -1) (pow.f64 (.f64 (.f64 im im) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal -1 binary64)))
#s(approx (* (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (pow (log base) 2)) (/.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (/ (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 3 binary64))))
#s(approx (+ (* (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (pow (log base) 4) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 4 binary64)))
#s(approx (/ (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))))) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) 0) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 2 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 2 binary64)))
#s(approx (/ (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0)))) (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (- (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) 0) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 3 binary64)))
#s(approx (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 3) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 3 binary64)))
#s(approx (+ (pow (* (log base) (log (sqrt (+ (* im im) (* re re))))) 2) (+ 0 (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) 0))) (pow.f64 (*.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))) #s(literal 2 binary64)))
#s(approx (/ (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 im re)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64))))))
#s(approx (+ (* (* (log base) (log (sqrt (+ (* im im) (* re re))))) (pow (log base) 2)) (* (pow (log base) 2) 0)) (*.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) base) #s(literal -1 binary64)))) #s(literal 3 binary64))))

eval238.0ms (1.4%)

Memory: 0.9MiB live, 242.4MiB allocated; 35ms collecting garbage
Compiler: Compiled 123 221 to 6 946 computations (94.4% saved)

prune4.4s (26.9%)

Memory

-96.1MiB live, 5 029.3MiB allocated; 1.3s collecting garbage

Pruning

11 alts after pruning (4 fresh and 7 done)

	Pruned	Kept	Total
New	1 695	3	1 698
Fresh	2	1	3
Picked	1	4	5
Done	0	3	3
Total	1 698	11	1 709

Accuracy

100.0%

Counts

1 709 → 11

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)) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))) (*.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64))))
✓	98.9%	(/.f64 (/.f64 (fma.f64 (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 3 binary64)) (pow.f64 (log.f64 base) #s(literal 3 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.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.1%	(/.f64 (/.f64 (-.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #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)) #s(literal 0 binary64)) (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 2 binary64)) (+.f64 #s(literal 0 binary64) (.f64 (.f64 (log.f64 base) (log.f64 (hypot.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.2%	(/.f64 (/.f64 (-.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64))) #s(literal 0 binary64)) (-.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
	98.9%	(/.f64 (/.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)) (pow.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)) #s(literal 3 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 (.f64 (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)) (.f64 (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))) (.f64 (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64)))))) (pow.f64 (log.f64 base) #s(literal 4 binary64)))
✓	98.7%	(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 (log.f64 base) (log.f64 (hypot.f64 im re))) #s(literal 3 binary64)) #s(literal 0 binary64)) (fma.f64 (pow.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)) #s(literal 0 binary64))) (+.f64 (.f64 (log.f64 base) (log.f64 base)) (*.f64 #s(literal 0 binary64) #s(literal 0 binary64))))
✓	99.1%	(*.f64 (/.f64 (fma.f64 (log.f64 (hypot.f64 im re)) (log.f64 base) #s(literal 0 binary64)) (pow.f64 (log.f64 base) #s(literal 4 binary64))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
	99.2%	(.f64 #s(approx (/ (+ ( (log (sqrt (+ (* im im) (* re re)))) (log base)) 0) (pow (log base) 4)) (/.f64 (log.f64 (hypot.f64 im re)) (pow.f64 (log.f64 base) #s(literal 3 binary64)))) (pow.f64 (log.f64 base) #s(literal 2 binary64)))
	86.1%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base))) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base)))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 base) #s(literal 2 binary64)))) (-.f64 (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (*.f64 im im) (log.f64 base))) (/.f64 (log.f64 im) (log.f64 base)))))
✓	47.9%	#s(approx (/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0)) (+ (* (log base) (log base)) (* 0 0))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base))) (/.f64 (.f64 (.f64 re re) #s(literal 1/2 binary64)) (.f64 (.f64 im im) (log.f64 base)))) (.f64 (/.f64 (log.f64 im) (log.f64 base)) (/.f64 (log.f64 im) (log.f64 base)))) #s(approx (- (/ (* (* re re) 1/2) (* (* im im) (log base))) (/ (log im) (log base))) (.f64 (.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (.f64 (.f64 re re) (log.f64 base))) (.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (*.f64 im im) (log.f64 base)) #s(literal -1 binary64))))))))
✓	99.5%	#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)))

Compiler

Compiled 1 910 to 482 computations (74.8% saved)

regimes42.0ms (0.3%)

Memory

-0.7MiB live, 90.0MiB allocated; 6ms collecting garbage

Accuracy

Total -63.7b remaining (-18822.5%)

Threshold costs -63.7b (-18822.5%)

Counts

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

Calls

5 calls:

11.0ms	re
7.0ms	base
7.0ms	im
7.0ms	(log.f64 base)
7.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.5%	1	`(log.f64 base)`
99.5%	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.5%	1	`re`
99.5%	1	`im`
99.5%	1	`base`

Compiler

Compiled 33 to 31 computations (6.1% saved)

simplify65.0ms (0.4%)

Memory

10.2MiB live, 65.6MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	23	28
1	60	26
2	237	22
3	1860	20
4	6435	20

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)))

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)))

derivations25.0ms (0.2%)

Memory

-16.6MiB live, 30.9MiB allocated; 1ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 36 to 23 computations (36.1% saved)

preprocess17.0ms (0.1%)

Memory

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

Remove

(sort re im)

(abs im)

(abs re)

Compiler

Compiled 344 to 220 computations (36% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze192.0ms (1.2%)

sample1.3s (8%)

explain223.0ms (1.3%)

preprocess135.0ms (0.8%)

eval0.0ms (0%)

prune1.0ms (0%)

series151.0ms (0.9%)

rewrite224.0ms (1.4%)

eval56.0ms (0.3%)

prune473.0ms (2.9%)

series319.0ms (1.9%)

rewrite263.0ms (1.6%)

eval122.0ms (0.7%)

prune2.6s (15.9%)

series274.0ms (1.7%)

rewrite335.0ms (2%)

eval259.0ms (1.6%)

prune4.2s (25.4%)

series251.0ms (1.5%)

rewrite268.0ms (1.6%)

eval238.0ms (1.4%)

prune4.4s (26.9%)

regimes42.0ms (0.3%)

simplify65.0ms (0.4%)

derivations25.0ms (0.2%)

preprocess17.0ms (0.1%)

end0.0ms (0%)

Profiling