math.log10 on complex, real part

Time bar (total: 6.8s)

start0.0ms (0%)

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

analyze113.0ms (1.7%)

Memory
40.1MiB live, 133.9MiB allocated; 4ms collecting garbage
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%99.9%0.1%0%0%0%0
0%0%99.9%0.1%0%0%0%1
0%0%99.9%0.1%0%0%0%2
0%0%99.9%0.1%0%0%0%3
0%0%99.9%0.1%0%0%0%4
18.8%18.7%81.2%0.1%0%0%0%5
34.4%34.3%65.6%0.1%0%0%0%6
54.7%54.6%45.3%0.1%0%0%0%7
64.8%64.8%35.1%0.1%0%0%0%8
76.2%76.1%23.8%0.1%0%0%0%9
81.8%81.8%18.1%0.1%0%0%0%10
87.8%87.7%12.2%0.1%0%0%0%11
90.8%90.7%9.2%0.1%0%0%0%12
Compiler

Compiled 14 to 9 computations (35.7% saved)

sample2.3s (33.6%)

Memory
-101.2MiB live, 1 267.6MiB allocated; 1.4s collecting garbage
Samples
1.8s8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 1.4s
ival-log: 712.0ms (51.1% of total)
ival-hypot: 575.0ms (41.3% of total)
ival-div: 89.0ms (6.4% of total)
exact: 9.0ms (0.6% of total)
adjust: 4.0ms (0.3% of total)
ival-assert: 4.0ms (0.3% of total)
Bogosity

explain292.0ms (4.3%)

Memory
-1.1MiB live, 147.8MiB allocated; 25ms collecting garbage
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
1300-2(-1.491487832361601e-188 1.12539598553078e-161)(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
00-0-(log.f64 #s(literal 10 binary64))
00-0-(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
00-0-(*.f64 re re)
00-0-im
00-0-(+.f64 (*.f64 re re) (*.f64 im im))
00-0-re
00-0-(*.f64 im im)
00-0-#s(literal 10 binary64)
00-0-(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
Explanations
Click to see full explanations table
OperatorSubexpressionExplanationCount
sqrt.f64(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))oflow-rescue1100
↳(+.f64 (*.f64 re re) (*.f64 im im))overflow110
↳(*.f64 re re)overflow55
↳(*.f64 im im)overflow80
sqrt.f64(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))uflow-rescue180
↳(+.f64 (*.f64 re re) (*.f64 im im))underflow18
↳(*.f64 re re)underflow66
↳(*.f64 im im)underflow52
Confusion
Predicted +Predicted -
+1282
-0126
Precision
1.0
Recall
0.9846153846153847
Confusion?
Predicted +Predicted MaybePredicted -
+12802
-00126
Precision?
1.0
Recall?
0.9846153846153847
Freqs
test
numberfreq
0128
1128
Total Confusion?
Predicted +Predicted MaybePredicted -
+100
-000
Precision?
1.0
Recall?
1.0
Samples
130.0ms512×0valid
Compiler

Compiled 110 to 34 computations (69.1% saved)

Precisions
Click to see histograms. Total time spent on operations: 103.0ms
ival-log: 67.0ms (65% of total)
ival-hypot: 14.0ms (13.6% of total)
ival-mult: 11.0ms (10.7% of total)
ival-div: 5.0ms (4.9% of total)
ival-add: 3.0ms (2.9% of total)
ival-true: 1.0ms (1% of total)
exact: 1.0ms (1% of total)
adjust: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)

preprocess40.0ms (0.6%)

Memory
-0.4MiB live, 46.3MiB allocated; 6ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
02874
16074
211074
313574
417374
01012
01712
12812
26712
312412
416112
01617
Stop Event
1×iter limit
1×saturated
1×iter limit
1×saturated
Calls
Call 1
Inputs
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
Outputs
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 #s(literal 10 binary64)))
Symmetry

(abs re)

(abs im)

(sort re im)

Compiler

Compiled 12 to 10 computations (16.7% saved)

eval0.0ms (0%)

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

Compiled 0 to 2 computations (-∞% saved)

prune1.0ms (0%)

Memory
1.5MiB live, 1.5MiB allocated; 0ms collecting garbage
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶50.9%
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
Compiler

Compiled 12 to 10 computations (16.7% saved)

series34.0ms (0.5%)

Memory
-4.0MiB live, 42.2MiB allocated; 6ms collecting garbage
Counts
10 → 79
Calls
Call 1
Inputs
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
Outputs
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx re #s(hole binary64 re))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx im #s(hole binary64 im))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Calls

6 calls:

TimeVariablePointExpression
9.0ms
im
@inf
((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log 10) 10)
6.0ms
re
@inf
((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log 10) 10)
5.0ms
im
@0
((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log 10) 10)
5.0ms
re
@0
((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log 10) 10)
3.0ms
re
@-inf
((/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im (log 10) 10)

rewrite347.0ms (5.1%)

Memory
19.3MiB live, 303.7MiB allocated; 89ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03602530
03712390
120122358
096231900
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
89 → 221
Calls
Call 1
Inputs
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx re #s(hole binary64 re))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx im #s(hole binary64 im))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Outputs
(/.f64 (neg.f64 (neg.f64 (log.f64 (hypot.f64 im re)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (hypot.f64 im re)) (log.f64 #s(literal 10 binary64)))
(*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re))))
(log.f64 (hypot.f64 im re))
(pow.f64 (hypot.f64 im re) #s(literal 1 binary64))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 re re) (*.f64 im im))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 im im) (*.f64 re re))))
(/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))))
(/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) re)
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) re)
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) im)
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) im)
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (fabs.f64 (fabs.f64 im)) re)
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (fabs.f64 (fabs.f64 re)) im)
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 im (neg.f64 (neg.f64 re)))
(hypot.f64 im (neg.f64 (fabs.f64 re)))
(hypot.f64 im (fabs.f64 (fabs.f64 re)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(hypot.f64 re (neg.f64 (neg.f64 im)))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (fabs.f64 (fabs.f64 im)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
(/.f64 (neg.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 re re) (*.f64 im im))))
(/.f64 (neg.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 im im) (*.f64 re re))))
(/.f64 (neg.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (*.f64 re re) (*.f64 im im)))
(/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (-.f64 (*.f64 im im) (*.f64 re re)))
(/.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)) (*.f64 re re))
(fma.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re)) (*.f64 im im))
(fma.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 im im))
(-.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (*.f64 re re) (*.f64 im im))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (*.f64 re re) (*.f64 im im))))
(-.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (*.f64 im im) (*.f64 re re))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (*.f64 im im) (*.f64 re re))))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(+.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))) (/.f64 (pow.f64 im #s(literal 6 binary64)) (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))))
(+.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))) (/.f64 (pow.f64 re #s(literal 6 binary64)) (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))))
(+.f64 (*.f64 im im) (*.f64 re re))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re)))
(*.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)))
(*.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(fabs.f64 (*.f64 re re))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))))
re
(*.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)))
(*.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)))
(*.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))))
im
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (*.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 im #s(literal -2 binary64)))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.f64 im))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (log.f64 im)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (fma.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (pow.f64 im #s(literal 4 binary64)))) (*.f64 re re) (log.f64 im)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/6 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (*.f64 re re) (*.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 re re) (log.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (+ (* re re) (* im im)) (*.f64 im im))
#s(approx (+ (* re re) (* im im)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx re re)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (log.f64 #s(literal 10 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.f64 re))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (log.f64 re)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (+.f64 (log.f64 re) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (+.f64 (log.f64 re) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64))) (pow.f64 re #s(literal 6 binary64)))))))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1 binary64)) re))
#s(approx (+ (* re re) (* im im)) (*.f64 re re))
#s(approx (+ (* re re) (* im im)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (neg.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (neg.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 #s(literal 1/720 binary64) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (log.f64 #s(literal 10 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64))) (pow.f64 re #s(literal 6 binary64)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 im re) (/.f64 im re)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 re #s(literal -2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal 1/6 binary64) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 im im) (*.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 re #s(literal -2 binary64)))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.f64 re))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (log.f64 re)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (fma.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal 4 binary64)))) (*.f64 im im) (log.f64 re)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/6 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -4 binary64)))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 im im) (log.f64 re)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (* im im) (*.f64 im im))
#s(approx im im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64))) (*.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.f64 im))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (log.f64 im)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (log.f64 im)))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (/.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64))) (pow.f64 im #s(literal 6 binary64))))) (log.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1 binary64)) im))
#s(approx (+ (* re re) (* im im)) (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (neg.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (neg.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64))) (*.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (/.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64))) (pow.f64 im #s(literal 6 binary64)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 re re) im) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1 binary64))))

eval31.0ms (0.4%)

Memory
0.1MiB live, 45.9MiB allocated; 7ms collecting garbage
Compiler

Compiled 4 158 to 936 computations (77.5% saved)

prune9.0ms (0.1%)

Memory
19.2MiB live, 19.2MiB allocated; 0ms collecting garbage
Pruning

5 alts after pruning (5 fresh and 0 done)

PrunedKeptTotal
New2125217
Fresh000
Picked101
Done000
Total2135218
Accuracy
99.7%
Counts
218 → 5
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶50.9%
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 #s(literal 10 binary64)))
▶99.1%
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
▶99.0%
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
▶98.2%
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
▶75.0%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
Compiler

Compiled 166 to 128 computations (22.9% saved)

series182.0ms (2.7%)

Memory
-1.9MiB live, 237.9MiB allocated; 28ms collecting garbage
Counts
36 → 275
Calls
Call 1
Inputs
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (log.f64 (hypot.f64 im re)))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
im
re
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
(log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 #s(literal 10 binary64)))
(*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re))))
#s(literal 1/2 binary64)
(log.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
(log.f64 (hypot.f64 re im))
(hypot.f64 re im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(fma.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
(fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))
(pow.f64 im #s(literal -2 binary64))
#s(literal -2 binary64)
(/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
(*.f64 #s(literal -1/4 binary64) (*.f64 re re))
#s(literal -1/4 binary64)
(*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 im #s(literal 4 binary64))
#s(literal 4 binary64)
(/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))
(log.f64 im)
Outputs
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log im) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (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 (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (* 1/2 (/ (log (pow im 2)) (log 10)))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (log (pow im 2)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (log (pow im 2)) (log 10))) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (log (pow im 2)) (log 10))) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (* 1/2 (log (pow im 2)))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* 1/2 (log (pow im 2))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* 1/2 (log (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* 1/2 (log (pow im 2))) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (log (pow im 2))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (log (pow im 2)) (/ (pow re 2) (pow im 2)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (log (pow im 2)) (* (pow re 2) (+ (* -1/2 (/ (pow re 2) (pow im 4))) (/ 1 (pow im 2)))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (log (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/3 (/ (pow re 2) (pow im 6))) (* 1/2 (/ 1 (pow im 4))))) (/ 1 (pow im 2)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (/ 1/2 (* (pow im 2) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))))
#s(approx (/ (* -1/4 (* re re)) (* (pow im 4) (log 10))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (* -1/4 (* re re)) #s(hole binary64 (* -1/4 (pow re 2))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ 1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/6 (/ (pow im 6) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (log (+ (* 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 (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/6 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (* -2 (log (/ 1 re)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ 1 re))) (/ (pow im 2) (pow re 2)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ 1 re))) (+ (* -1/2 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ 1 re))) (+ (* -1/2 (/ (pow im 4) (pow re 4))) (+ (* 1/3 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (* (pow re 2) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ -1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/6 (/ (pow im 6) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (log (+ (* 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 (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/6 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (* -2 (log (/ -1 re)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ -1 re))) (/ (pow im 2) (pow re 2)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ -1 re))) (+ (* -1/2 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ -1 re))) (+ (* -1/2 (/ (pow im 4) (pow re 4))) (+ (* 1/3 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log re) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (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 (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (* 1/2 (/ (log (pow re 2)) (log 10)))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (log (pow re 2)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (log (pow re 2)) (log 10))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (log (pow re 2)) (log 10))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (* 1/2 (log (pow re 2)))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* 1/2 (log (pow re 2))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* 1/2 (log (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* 1/2 (log (pow re 2))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (log (pow re 2))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (log (pow re 2)) (/ (pow im 2) (pow re 2)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (log (pow re 2)) (* (pow im 2) (+ (* -1/2 (/ (pow im 2) (pow re 4))) (/ 1 (pow re 2)))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (log (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/3 (/ (pow im 2) (pow re 6))) (* 1/2 (/ 1 (pow re 4))))) (/ 1 (pow re 2)))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* 1/2 (/ (* (pow im 2) (pow re 2)) (log 10)))) (pow im 4))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (+ (* 1/2 (/ (pow re 2) (log 10))) (/ (* (pow im 2) (log im)) (log 10))))) (pow im 4))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 2) (log 10))) (* 1/2 (/ (pow im 2) (log 10)))) (pow im 4))))
#s(approx (pow im -2) #s(hole binary64 (/ 1 (pow im 2))))
#s(approx (* (pow im 4) (log 10)) #s(hole binary64 (* (pow im 4) (log 10))))
#s(approx (pow im 4) #s(hole binary64 (pow im 4)))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/6 (/ (pow re 6) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (log (+ (* 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 (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/6 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (* -2 (log (/ 1 im)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ 1 im))) (/ (pow re 2) (pow im 2)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ 1 im))) (+ (* -1/2 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ 1 im))) (+ (* -1/2 (/ (pow re 4) (pow im 4))) (+ (* 1/3 (/ (pow re 6) (pow im 6))) (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (log 10)))) (pow im 2))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ -1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/6 (/ (pow re 6) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (log (+ (* 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 (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/6 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (* -2 (log (/ -1 im)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ -1 im))) (/ (pow re 2) (pow im 2)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ -1 im))) (+ (* -1/2 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ -1 im))) (+ (* -1/2 (/ (pow re 4) (pow im 4))) (+ (* 1/3 (/ (pow re 6) (pow im 6))) (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log -1) (log 10)))))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log 10))))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
Calls

6 calls:

TimeVariablePointExpression
50.0ms
re
@0
((/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re (log 1/10) 1/10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (log 10) 10 (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) (* 1/2 (log (+ (* im im) (* re re)))) 1/2 (log (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/ 1/2 (log 10)) (pow im -2) -2 (/ (* -1/4 (* re re)) (* (pow im 4) (log 10))) (* -1/4 (* re re)) -1/4 (* (pow im 4) (log 10)) (pow im 4) 4 (/ (log im) (log 10)) (log im))
40.0ms
im
@-inf
((/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re (log 1/10) 1/10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (log 10) 10 (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) (* 1/2 (log (+ (* im im) (* re re)))) 1/2 (log (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/ 1/2 (log 10)) (pow im -2) -2 (/ (* -1/4 (* re re)) (* (pow im 4) (log 10))) (* -1/4 (* re re)) -1/4 (* (pow im 4) (log 10)) (pow im 4) 4 (/ (log im) (log 10)) (log im))
30.0ms
im
@0
((/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re (log 1/10) 1/10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (log 10) 10 (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) (* 1/2 (log (+ (* im im) (* re re)))) 1/2 (log (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/ 1/2 (log 10)) (pow im -2) -2 (/ (* -1/4 (* re re)) (* (pow im 4) (log 10))) (* -1/4 (* re re)) -1/4 (* (pow im 4) (log 10)) (pow im 4) 4 (/ (log im) (log 10)) (log im))
22.0ms
im
@inf
((/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re (log 1/10) 1/10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (log 10) 10 (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) (* 1/2 (log (+ (* im im) (* re re)))) 1/2 (log (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/ 1/2 (log 10)) (pow im -2) -2 (/ (* -1/4 (* re re)) (* (pow im 4) (log 10))) (* -1/4 (* re re)) -1/4 (* (pow im 4) (log 10)) (pow im 4) 4 (/ (log im) (log 10)) (log im))
16.0ms
re
@inf
((/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) im re (log 1/10) 1/10 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (log 10) 10 (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) (* 1/2 (log (+ (* im im) (* re re)))) 1/2 (log (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (log (sqrt (+ (* re re) (* im im)))) (sqrt (+ (* re re) (* im im))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/ 1/2 (log 10)) (pow im -2) -2 (/ (* -1/4 (* re re)) (* (pow im 4) (log 10))) (* -1/4 (* re re)) -1/4 (* (pow im 4) (log 10)) (pow im 4) 4 (/ (log im) (log 10)) (log im))

rewrite391.0ms (5.7%)

Memory
-15.8MiB live, 353.9MiB allocated; 69ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
08608609
09067823
145717652
087807363
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
311 → 601
Calls
Call 1
Inputs
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (log.f64 (hypot.f64 im re)))
(log.f64 (hypot.f64 im re))
(hypot.f64 im re)
im
re
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
(log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 #s(literal 10 binary64)))
(*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re))))
#s(literal 1/2 binary64)
(log.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
(log.f64 (hypot.f64 re im))
(hypot.f64 re im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(fma.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
(fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))
(pow.f64 im #s(literal -2 binary64))
#s(literal -2 binary64)
(/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
(*.f64 #s(literal -1/4 binary64) (*.f64 re re))
#s(literal -1/4 binary64)
(*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 im #s(literal 4 binary64))
#s(literal 4 binary64)
(/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))
(log.f64 im)
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log im) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (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 (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (* 1/2 (/ (log (pow im 2)) (log 10)))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (log (pow im 2)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (log (pow im 2)) (log 10))) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (log (pow im 2)) (log 10))) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (* 1/2 (log (pow im 2)))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* 1/2 (log (pow im 2))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* 1/2 (log (pow im 2))) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* 1/2 (log (pow im 2))) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (log (pow im 2))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (log (pow im 2)) (/ (pow re 2) (pow im 2)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (log (pow im 2)) (* (pow re 2) (+ (* -1/2 (/ (pow re 2) (pow im 4))) (/ 1 (pow im 2)))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (log (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/3 (/ (pow re 2) (pow im 6))) (* 1/2 (/ 1 (pow im 4))))) (/ 1 (pow im 2)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (/ 1/2 (* (pow im 2) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))))
#s(approx (/ (* -1/4 (* re re)) (* (pow im 4) (log 10))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (* -1/4 (* re re)) #s(hole binary64 (* -1/4 (pow re 2))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ 1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/6 (/ (pow im 6) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (log (+ (* 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 (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/6 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (* -2 (log (/ 1 re)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ 1 re))) (/ (pow im 2) (pow re 2)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ 1 re))) (+ (* -1/2 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ 1 re))) (+ (* -1/2 (/ (pow im 4) (pow re 4))) (+ (* 1/3 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (* (pow re 2) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ -1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/6 (/ (pow im 6) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (log (+ (* 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 (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/6 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (* -2 (log (/ -1 re)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ -1 re))) (/ (pow im 2) (pow re 2)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ -1 re))) (+ (* -1/2 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ -1 re))) (+ (* -1/2 (/ (pow im 4) (pow re 4))) (+ (* 1/3 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log re) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (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 (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (* 1/2 (/ (log (pow re 2)) (log 10)))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (log (pow re 2)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (log (pow re 2)) (log 10))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (log (pow re 2)) (log 10))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (* 1/2 (log (pow re 2)))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* 1/2 (log (pow re 2))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* 1/2 (log (pow re 2))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* 1/2 (log (pow re 2))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (log (pow re 2))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (log (pow re 2)) (/ (pow im 2) (pow re 2)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (log (pow re 2)) (* (pow im 2) (+ (* -1/2 (/ (pow im 2) (pow re 4))) (/ 1 (pow re 2)))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (log (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/3 (/ (pow im 2) (pow re 6))) (* 1/2 (/ 1 (pow re 4))))) (/ 1 (pow re 2)))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* 1/2 (/ (* (pow im 2) (pow re 2)) (log 10)))) (pow im 4))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (+ (* 1/2 (/ (pow re 2) (log 10))) (/ (* (pow im 2) (log im)) (log 10))))) (pow im 4))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 2) (log 10))) (* 1/2 (/ (pow im 2) (log 10)))) (pow im 4))))
#s(approx (pow im -2) #s(hole binary64 (/ 1 (pow im 2))))
#s(approx (* (pow im 4) (log 10)) #s(hole binary64 (* (pow im 4) (log 10))))
#s(approx (pow im 4) #s(hole binary64 (pow im 4)))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/6 (/ (pow re 6) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (log (+ (* 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 (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/6 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (* -2 (log (/ 1 im)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ 1 im))) (/ (pow re 2) (pow im 2)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ 1 im))) (+ (* -1/2 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ 1 im))) (+ (* -1/2 (/ (pow re 4) (pow im 4))) (+ (* 1/3 (/ (pow re 6) (pow im 6))) (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (log 10)))) (pow im 2))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ -1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (* 1/2 (log (+ (* im im) (* re re)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/6 (/ (pow re 6) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (log (+ (* 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 (* 1/2 (log (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/6 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (* -2 (log (/ -1 im)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ -1 im))) (/ (pow re 2) (pow im 2)))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ -1 im))) (+ (* -1/2 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))
#s(approx (log (+ (* im im) (* re re))) #s(hole binary64 (+ (* -2 (log (/ -1 im))) (+ (* -1/2 (/ (pow re 4) (pow im 4))) (+ (* 1/3 (/ (pow re 6) (pow im 6))) (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log -1) (log 10)))))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log 10))))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
Outputs
(*.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 (fma.f64 re re (*.f64 im im))) (log.f64 #s(literal 10 binary64))))
(/.f64 (neg.f64 (log.f64 (hypot.f64 re im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
(neg.f64 (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 1/10 binary64))))
(neg.f64 (log.f64 (hypot.f64 re im)))
(-.f64 #s(literal 0 binary64) (log.f64 (hypot.f64 re im)))
(log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64)))
(*.f64 (log.f64 (fma.f64 re re (*.f64 im im))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 re re (*.f64 im im))))
(neg.f64 (neg.f64 (log.f64 (hypot.f64 re im))))
(log.f64 (hypot.f64 re im))
(pow.f64 (hypot.f64 re im) #s(literal 1 binary64))
(pow.f64 (fma.f64 re re (*.f64 im im)) #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 re im) #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (hypot.f64 re im) #s(literal -1 binary64)))
(sqrt.f64 (fma.f64 re re (*.f64 im 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 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) im)
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) im)
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (fabs.f64 (fabs.f64 im)) re)
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (fabs.f64 (fabs.f64 re)) im)
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (fabs.f64 im) (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 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)
(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)
(exp.f64 (log.f64 (hypot.f64 re im)))
im
re
(neg.f64 (log.f64 #s(literal 10 binary64)))
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)) (log.f64 #s(literal 10 binary64)))
(log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))
#s(approx (sqrt (+ (* im im) (* re re))) im)
(neg.f64 (log.f64 #s(literal 1/10 binary64)))
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
(*.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 (fma.f64 re re (*.f64 im im))) (log.f64 #s(literal 10 binary64))))
(/.f64 (neg.f64 (log.f64 (hypot.f64 re im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
(neg.f64 (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 1/10 binary64))))
(*.f64 (log.f64 (fma.f64 re re (*.f64 im im))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 re re (*.f64 im im))))
(neg.f64 (neg.f64 (log.f64 (hypot.f64 re im))))
(log.f64 (hypot.f64 re im))
#s(literal 1/2 binary64)
(-.f64 (log.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (log.f64 (-.f64 (*.f64 re re) (*.f64 im im))))
(-.f64 (log.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (log.f64 (-.f64 (*.f64 im im) (*.f64 re re))))
(-.f64 (log.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) (log.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 (log.f64 (+.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64)))) (log.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))))
(log.f64 (fma.f64 re re (*.f64 im 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 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 re im) #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)) (*.f64 re re))
(fma.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re)) (*.f64 im im))
(fma.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 re re (*.f64 im im))
(fma.f64 im im (*.f64 re re))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 re) re))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(+.f64 (*.f64 im im) (*.f64 re re))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 (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 (pow.f64 re #s(literal -1 binary64)) #s(literal -2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 2 binary64)))
(fabs.f64 (*.f64 re re))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 (fma.f64 re re (*.f64 im im))) (log.f64 #s(literal 10 binary64))))
(/.f64 (neg.f64 (log.f64 (hypot.f64 re im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
(neg.f64 (/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 1/10 binary64))))
(*.f64 (log.f64 (fma.f64 re re (*.f64 im im))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 re re (*.f64 im im))))
(neg.f64 (neg.f64 (log.f64 (hypot.f64 re im))))
(log.f64 (hypot.f64 re im))
(pow.f64 (hypot.f64 re im) #s(literal 1 binary64))
(pow.f64 (fma.f64 re re (*.f64 im im)) #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 re im) #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (hypot.f64 re im) #s(literal -1 binary64)))
(sqrt.f64 (fma.f64 re re (*.f64 im 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 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) im)
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) im)
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (fabs.f64 (fabs.f64 im)) re)
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (fabs.f64 (fabs.f64 re)) im)
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (fabs.f64 im) (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 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)
(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)
(exp.f64 (log.f64 (hypot.f64 re im)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64))) (-.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))))
(/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)))) (+.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (*.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))))))
(fma.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) re) re (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
(fma.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
(fma.f64 (/.f64 (*.f64 #s(literal 2 binary64) (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
(fma.f64 (*.f64 re re) (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
(fma.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
(fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64))) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 2 binary64) (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
(-.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (*.f64 (neg.f64 (*.f64 re re)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))
(+.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
(+.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 2 binary64))) (-.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)))))
(/.f64 (fma.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) #s(literal 3 binary64)) (pow.f64 im #s(literal -6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) #s(literal -1/64 binary64) (*.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) #s(literal 3 binary64)) (pow.f64 im #s(literal -6 binary64)))) (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)))))))
(fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))))
(fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(fma.f64 (pow.f64 im #s(literal -2 binary64)) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(fma.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(fma.f64 (/.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))))
(fma.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(-.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64)))))
(+.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(+.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))))
(*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))
(/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))
(/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64)))
(*.f64 (neg.f64 (pow.f64 im #s(literal -1 binary64))) (neg.f64 (pow.f64 im #s(literal -1 binary64))))
(*.f64 (fabs.f64 (pow.f64 im #s(literal -1 binary64))) (fabs.f64 (pow.f64 im #s(literal -1 binary64))))
(*.f64 (pow.f64 (fabs.f64 im) #s(literal -1 binary64)) (pow.f64 (fabs.f64 im) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal -1 binary64) im) (/.f64 #s(literal -1 binary64) im))
(*.f64 (pow.f64 im #s(literal -1 binary64)) (pow.f64 im #s(literal -1 binary64)))
(pow.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal -1 binary64))
(pow.f64 im #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (*.f64 im im))
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 im im)))
(exp.f64 (-.f64 #s(literal 0 binary64) (*.f64 #s(literal 2 binary64) (log.f64 im))))
(exp.f64 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 im)) #s(literal -1 binary64)))
(exp.f64 (log.f64 (pow.f64 im #s(literal -2 binary64))))
(exp.f64 (*.f64 (log.f64 im) #s(literal -2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal -2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal -2 binary64))))
#s(literal -2 binary64)
(*.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))
(*.f64 (/.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64))
(*.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64))) (neg.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
(/.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (pow.f64 im #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64)))
(*.f64 (*.f64 #s(literal -1/4 binary64) re) re)
(*.f64 (*.f64 re re) #s(literal -1/4 binary64))
(*.f64 #s(literal -1/4 binary64) (*.f64 re re))
#s(literal -1/4 binary64)
(*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))
(*.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64)))
(log.f64 (pow.f64 #s(literal 10 binary64) (pow.f64 im #s(literal 4 binary64))))
(*.f64 (neg.f64 (*.f64 im im)) (neg.f64 (*.f64 im im)))
(*.f64 (*.f64 im im) (*.f64 im im))
(pow.f64 (*.f64 im im) #s(literal 2 binary64))
(pow.f64 im #s(literal 4 binary64))
(exp.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (*.f64 #s(literal 2 binary64) (log.f64 im))))
(exp.f64 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 im)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 im) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 4 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 4 binary64))))
#s(literal 4 binary64)
(*.f64 (/.f64 (*.f64 #s(literal 2 binary64) (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))
(*.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 2 binary64) (log.f64 im)) (log.f64 #s(literal 10 binary64))))
(/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))
(neg.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64))))
(*.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64))
(*.f64 (*.f64 #s(literal 2 binary64) (log.f64 im)) #s(literal 1/2 binary64))
(*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))
(*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 2 binary64) (log.f64 im)))
(neg.f64 (neg.f64 (log.f64 im)))
(log.f64 im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64))))) (*.f64 re re) (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 im #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 re re)) (*.f64 im im)) (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64)))) (*.f64 re re)) (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 (fma.f64 (fma.f64 (pow.f64 im #s(literal -4 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 re re)) (pow.f64 im #s(literal 6 binary64)))) (*.f64 re re) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64)))) (*.f64 re re)) (log.f64 im)))
#s(approx (log (sqrt (+ (* 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 (*.f64 re re) #s(literal -1/4 binary64)) (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 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 1/6 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (*.f64 re re))) (*.f64 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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/6 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.f64 im))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (/.f64 (*.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 (*.f64 re re) #s(literal -1/4 binary64)) (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 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 1/6 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (*.f64 re re))) (*.f64 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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/6 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.f64 im))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (/.f64 (*.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 (*.f64 re re) #s(literal -1/4 binary64)) (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 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 1/6 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -4 binary64)))) (*.f64 re re))) (*.f64 re re) (log.f64 im)))
#s(approx (log (+ (* im im) (* re re))) (*.f64 #s(literal 2 binary64) (log.f64 im)))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (/.f64 (*.f64 re re) (*.f64 im im))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64))) (*.f64 re re) (*.f64 #s(literal 2 binary64) (log.f64 im))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/3 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -4 binary64)))) (*.f64 re re) (pow.f64 im #s(literal -2 binary64))) (*.f64 re re) (*.f64 #s(literal 2 binary64) (log.f64 im))))
#s(approx (+ (* im im) (* re re)) (*.f64 im im))
#s(approx (+ (* im im) (* re re)) (fma.f64 re re (*.f64 im im)))
#s(approx (* re re) (*.f64 re re))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (* -1/4 (* re re)) (* (pow im 4) (log 10))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (* -1/4 (* re re)) (*.f64 (*.f64 re re) #s(literal -1/4 binary64)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal 1/4 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (*.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/720 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal 1/4 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 im im)) (*.f64 re re)) (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) (log.f64 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64))) (pow.f64 re #s(literal 6 binary64))) (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)))) (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 #s(literal 1/720 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/720 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.f64 re))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (/.f64 (*.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 #s(literal 1/720 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.f64 re))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (/.f64 (*.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 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/6 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 re re))))))
#s(approx (log (+ (* im im) (* re re))) (*.f64 (log.f64 re) #s(literal 2 binary64)))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (log.f64 re) #s(literal 2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (log.f64 re) #s(literal 2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (log.f64 re) #s(literal 2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/3 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (+ (* im im) (* re re)) (*.f64 re re))
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (*.f64 re re)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal 1/4 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (*.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/720 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal 1/4 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (log.f64 (/.f64 #s(literal -1 binary64) re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal 1 binary64)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 re re))))))
#s(approx (log (sqrt (+ (* 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 #s(literal 1/720 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.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 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/720 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (sqrt (+ (* 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 #s(literal 1/720 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.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 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) re))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (fma.f64 (/.f64 (*.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 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/6 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im im)) (*.f64 re re))))))
#s(approx (log (+ (* im im) (* re re))) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal -2 binary64))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) #s(literal -2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/3 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64))))) (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 1/10 binary64))))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 im im)) (*.f64 re re)) (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -2 binary64)))) (*.f64 im im)) (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 (fma.f64 (fma.f64 (pow.f64 re #s(literal -4 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 im im)) (pow.f64 re #s(literal 6 binary64)))) (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -2 binary64)))) (*.f64 im im)) (log.f64 re)))
#s(approx (log (sqrt (+ (* 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 (+ (* 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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/6 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 im im) (*.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (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 (+ (* 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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/6 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 im im) (*.f64 (/.f64 (pow.f64 re #s(literal -2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (*.f64 im im) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (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 (log (+ (* im im) (* re re))) (*.f64 (log.f64 re) #s(literal 2 binary64)))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (log.f64 re) #s(literal 2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/2 binary64) (pow.f64 re #s(literal -2 binary64))) (*.f64 im im) (*.f64 (log.f64 re) #s(literal 2 binary64))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/3 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -4 binary64)))) (*.f64 im im) (pow.f64 re #s(literal -2 binary64))) (*.f64 im im) (*.f64 (log.f64 re) #s(literal 2 binary64))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64)))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 (fma.f64 (*.f64 im im) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (log.f64 #s(literal 10 binary64)))) (*.f64 im im) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (log.f64 #s(literal 10 binary64)))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (log.f64 #s(literal 10 binary64)))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (pow im -2) (pow.f64 im #s(literal -2 binary64)))
#s(approx (* (pow im 4) (log 10)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
#s(approx (pow im 4) (pow.f64 im #s(literal 4 binary64)))
#s(approx (/ (log im) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (log im) (log.f64 im))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal 1/4 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/720 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal 1/4 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 re re)) (*.f64 im im)) (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (log.f64 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64))) (pow.f64 im #s(literal 6 binary64))) (log.f64 im)) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 im im)))))
#s(approx (log (sqrt (+ (* 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 (+ (* 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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 im #s(literal 6 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/720 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (sqrt (+ (* 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 (+ (* 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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (log.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 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/6 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 im im)))) (log.f64 im)))
#s(approx (log (+ (* im im) (* re re))) (*.f64 #s(literal 2 binary64) (log.f64 im)))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (/.f64 (*.f64 re re) (*.f64 im im))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 #s(literal 2 binary64) (log.f64 im) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/3 binary64) (/.f64 (*.f64 re re) (*.f64 im im))))))
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im)))
#s(approx (/ (log im) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (log im) (log.f64 im))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal 1/4 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1/720 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) #s(literal 1/4 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (log.f64 (/.f64 #s(literal -1 binary64) im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal -1/2 binary64) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 1 binary64)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (/.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 im im))))))
#s(approx (log (sqrt (+ (* 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 (+ (* 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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) #s(literal 120 binary64)) (pow.f64 im #s(literal 6 binary64))) (log.f64 #s(literal 10 binary64))) #s(literal 1/720 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (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 (+ (* 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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+.f64 (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/6 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (log (sqrt (+ (* re re) (* im im)))) (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 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/6 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 re re)) (*.f64 im im))))))
#s(approx (log (+ (* im im) (* re re))) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -2 binary64))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -2 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))))
#s(approx (log (+ (* im im) (* re re))) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -2 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/3 binary64) (/.f64 (*.f64 re re) (*.f64 im im))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 1/10 binary64))))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log im) (log 10)) (/.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))) (log.f64 #s(literal 10 binary64))))
#s(approx (log im) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal -1 binary64))))

eval122.0ms (1.8%)

Memory
7.7MiB live, 164.5MiB allocated; 43ms collecting garbage
Compiler

Compiled 14 860 to 1 903 computations (87.2% saved)

prune46.0ms (0.7%)

Memory
-31.0MiB live, 65.6MiB allocated; 17ms collecting garbage
Pruning

12 alts after pruning (8 fresh and 4 done)

PrunedKeptTotal
New4568464
Fresh000
Picked145
Done000
Total45712469
Accuracy
99.8%
Counts
469 → 12
Alt Table
Click to see full alt table
StatusAccuracyProgram
14.9%
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (log.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) (log.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))))) (log.f64 #s(literal 10 binary64)))
50.8%
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
✓50.9%
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 #s(literal 10 binary64)))
✓99.1%
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
▶98.2%
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
▶99.1%
(/.f64 (log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64))) (log.f64 #s(literal 1/10 binary64)))
✓99.0%
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
✓98.2%
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
▶81.6%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
▶59.2%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
75.0%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64))) (-.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))))
▶25.9%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
Compiler

Compiled 835 to 480 computations (42.5% saved)

series404.0ms (5.9%)

Memory
49.5MiB live, 569.1MiB allocated; 52ms collecting garbage
Counts
70 → 422
Calls
Call 1
Inputs
(/.f64 (log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64))) (log.f64 #s(literal 1/10 binary64)))
(log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64)))
(pow.f64 (hypot.f64 re im) #s(literal -1 binary64))
(hypot.f64 re im)
re
im
#s(literal -1 binary64)
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)))
(log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(fma.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im)))
(/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))
(fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))))
(/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64)))
(/.f64 (*.f64 re re) (*.f64 im im))
(*.f64 re re)
(*.f64 im im)
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
#s(literal -1/4 binary64)
(/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))
#s(literal -1/2 binary64)
(/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))
(log.f64 im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64))))
(*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))
(-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)))
(+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))))
(/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
(*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 re #s(literal 4 binary64))
#s(literal 4 binary64)
(/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))
#s(literal 1/2 binary64)
(*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 (*.f64 re im) #s(literal 2 binary64))
(*.f64 re im)
#s(literal 2 binary64)
(*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))
(/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 im #s(literal -4 binary64))
#s(literal -4 binary64)
#s(literal 1/4 binary64)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
(/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
(fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
(pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64))
(fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(pow.f64 im #s(literal -2 binary64))
#s(literal -2 binary64)
(/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
(*.f64 (*.f64 re re) #s(literal -1/4 binary64))
(*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 im #s(literal 4 binary64))
#s(literal 3 binary64)
(pow.f64 re #s(literal 6 binary64))
#s(literal 6 binary64)
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))
(+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64))
(*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))
(-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))
(*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
Outputs
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (log (/ 1 im))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 im)) (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 im)) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 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 (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ 1 im)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (pow im 3))) (/ 1 im))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 5))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* -5/16 (/ (pow re 2) (pow im 7))) (* 3/8 (/ 1 (pow im 5))))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log im) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (/ 1/2 (* (pow im 2) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) #s(hole binary64 (/ -1/2 (* (pow im 2) (log 1/10)))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) #s(hole binary64 (- (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) #s(hole binary64 (/ -1/2 (log 1/10))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) #s(hole binary64 (- (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (log 1/10))))))
#s(approx (/ (/ (* re re) (* im im)) (log 10)) #s(hole binary64 (/ (pow re 2) (* (pow im 2) (log 10)))))
#s(approx (/ (* re re) (* im im)) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (log im) (* (pow re 4) (log 10)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (log im) (* (pow re 4) (log 10)))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (/ (log im) (* (pow re 4) (log 10))) #s(hole binary64 (/ (log im) (* (pow re 4) (log 10)))))
#s(approx (* (pow re 4) (log 10)) #s(hole binary64 (* (pow re 4) (log 10))))
#s(approx (pow re 4) #s(hole binary64 (pow re 4)))
#s(approx (/ 1/2 (* (pow (* re im) 2) (log 10))) #s(hole binary64 (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (* (pow (* re im) 2) (log 10)) #s(hole binary64 (* (pow im 2) (* (pow re 2) (log 10)))))
#s(approx (pow (* re im) 2) #s(hole binary64 (* (pow im 2) (pow re 2))))
#s(approx (* re im) #s(hole binary64 (* im re)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log im) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* (pow re 2) (- (* -1 (* (pow re 2) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log im) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (* (pow re 2) (- (* -1/8 (/ (pow (log 10) 2) (* (pow im 6) (* (pow (log 1/10) 3) (pow (log im) 2))))) (+ (* -1/2 (/ (* (log 10) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im)))) (* (pow im 2) (* (log 1/10) (log im))))) (+ (* -1/2 (/ (* (pow (log 10) 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* (pow im 2) (* (log 1/10) (pow (log im) 2))))) (* 1/4 (/ 1 (* (pow im 6) (* (log 1/10) (log im))))))))) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (pow (log im) 3) (pow (log 10) 3))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* (pow re 6) (- (* -3/16 (/ (pow re 2) (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* (pow re 6) (- (* (pow re 2) (- (* -3/32 (/ (pow re 2) (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ -1/8 (* (pow im 6) (pow (log 1/10) 3)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (- (* -3/16 (/ (pow re 2) (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (- (* (pow re 2) (- (* -3/32 (/ (pow re 2) (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (- (* -1/64 (/ (pow re 2) (* (pow im 12) (pow (log 10) 3)))) (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (/ -1/2 (* (pow im 2) (log 1/10)))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (- (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))
#s(approx (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (* (* re re) -1/4) #s(hole binary64 (* -1/4 (pow re 2))))
#s(approx (pow re 6) #s(hole binary64 (pow re 6)))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log im)) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (+ (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* 1/4 (/ (pow re 2) (* (pow im 6) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 4) (+ (* 1/4 (/ (pow re 2) (* (pow im 6) (* (log 1/10) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 4) (+ (* (pow re 2) (+ (* 1/16 (/ (pow re 2) (* (pow im 8) (pow (log 10) 2)))) (* 1/4 (/ 1 (* (pow im 6) (* (log 1/10) (log 10))))))) (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2))))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* (pow re 2) (- (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log im)) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* (pow re 2) (- (* 1/4 (/ (* (pow re 2) (log im)) (* (pow im 4) (pow (log 10) 2)))) (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/2 (/ (* (pow re 2) (log im)) (* (pow im 2) (* (log 1/10) (log 10)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 2) (+ (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 2) (log im)) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (* (pow re 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (log (/ 1 re))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 re)) (* -1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4))))))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ 1 re)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ 1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (* (pow re 2) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) #s(hole binary64 (* -1 (* (pow re 2) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10))))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) #s(hole binary64 (* -1 (* (pow re 2) (+ (* 1/4 (/ 1 (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* (pow re 4) (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ -1/4 (* (pow im 4) (log 10)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (* (pow im 2) (log 10)))) (/ (log im) (* (pow re 2) (log 10)))) (pow re 2))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1 (* (pow re 4) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* (pow re 4) (- (* -3 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (* -4 (/ (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (pow re 4))) (+ (* -2 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* (pow re 4) (- (+ (* -3 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (* -2 (/ (* (pow im 2) (pow (log 10) 2)) (* (pow re 6) (pow (log 1/10) 3))))) (+ (* -8 (/ (* (pow im 6) (* (pow (log 10) 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (* (pow re 6) (log 1/10)))) (+ (* -4 (/ (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (pow re 4))) (+ (* -2 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (* -2 (/ (* (pow im 2) (log im)) (* (pow re 6) (log 1/10)))) (+ (* 4 (/ (* (pow im 2) (* (log 10) (- (* -3 (/ (log 10) (pow (log 1/10) 2))) (+ (* -4 (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))))) (* -2 (/ (log 10) (pow (log 1/10) 2))))))) (* (pow re 6) (log 1/10)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* -1/64 (/ (pow re 12) (* (pow im 12) (pow (log 10) 3))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* -1 (* (pow re 12) (+ (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))) (* 3/32 (/ 1 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2)))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* (pow re 12) (- (* -1 (/ (+ (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (pow re 2))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* (pow re 12) (- (* -1 (/ (+ (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (* (pow re 2) (pow (log 1/10) 3)))))) (pow re 4))) (+ (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))) (/ 3/32 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2))))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* -1/64 (/ (pow re 6) (* (pow im 12) (pow (log 10) 3))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* -1 (* (pow re 6) (+ (* 3/32 (/ 1 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2)))))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* (pow re 6) (- (* -1 (/ (+ (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (pow re 2))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* (pow re 6) (- (* -1 (/ (+ (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (* (pow re 2) (pow (log 1/10) 3)))))) (pow re 4))) (+ (/ 3/32 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2))))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (* -1 (* (pow re 2) (+ (* 1/4 (/ 1 (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* 1/16 (/ (pow re 8) (* (pow im 8) (pow (log 10) 2))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* (pow re 8) (+ (* 1/4 (/ 1 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10)))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* (pow re 8) (- (+ (/ 1/4 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10))))) (+ (* 1/4 (/ 1 (* (pow im 4) (* (pow re 4) (pow (log 1/10) 2))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2)))))) (* -1/4 (/ (log im) (* (pow im 4) (* (pow re 4) (pow (log 10) 2)))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* (pow re 8) (- (+ (* 1/2 (/ (log im) (* (pow im 2) (* (pow re 6) (* (log 1/10) (log 10)))))) (+ (/ 1/4 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10))))) (+ (* 1/4 (/ 1 (* (pow im 4) (* (pow re 4) (pow (log 1/10) 2))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2))))))) (* -1/4 (/ (log im) (* (pow im 4) (* (pow re 4) (pow (log 10) 2)))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* 1/16 (/ (pow re 8) (* (pow im 8) (pow (log 10) 2))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 8) (+ (* 1/4 (/ 1 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10)))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 8) (+ (/ 1/4 (* (pow im 4) (* (pow re 4) (pow (log 1/10) 2)))) (+ (/ 1/4 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2)))))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* -1 (* (pow re 4) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (* 1/4 (/ (* (pow re 4) (log im)) (* (pow im 4) (pow (log 10) 2))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ (log im) (* (pow im 2) (* (pow re 2) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (* (pow re 4) (- (/ (pow (log im) 2) (* (pow re 4) (pow (log 10) 2))) (+ (* -1/2 (/ (log im) (* (pow im 2) (* (pow re 2) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/4 (/ (* (pow re 4) (log im)) (* (pow im 4) (pow (log 10) 2))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (+ (* -1/2 (/ (log im) (* (pow im 2) (* (pow re 2) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (* (pow re 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (log (/ -1 re))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ -1 re)) (* -1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ -1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ -1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4))))))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ -1 re)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ -1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 re)) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 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 (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (pow re 3))) (/ 1 re))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 5))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/16 (/ (pow im 2) (pow re 7))) (* 3/8 (/ 1 (pow re 5))))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log re) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* 1/2 (/ (* (pow im 2) (pow re 2)) (log 10)))) (pow im 4))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (+ (* 1/2 (/ (pow re 2) (log 10))) (/ (* (pow im 2) (log im)) (log 10))))) (pow im 4))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 2) (log 10))) (* 1/2 (/ (pow im 2) (log 10)))) (pow im 4))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) #s(hole binary64 (/ (+ (* -1/2 (/ (pow im 2) (log 1/10))) (* -1/4 (/ (pow re 2) (log 10)))) (pow im 4))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) #s(hole binary64 (/ (+ (* -1/2 (/ (pow im 2) (log 1/10))) (* -1/4 (/ (pow re 2) (log 10)))) (pow im 2))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* 1/2 (/ (* (pow im 2) (pow re 2)) (log 10)))) (pow im 4))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (+ (* 1/2 (/ (pow re 2) (log 10))) (/ (* (pow im 2) (log im)) (log 10))))) (pow im 4))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (- (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (* 1/4 (/ 1 (log 10)))) (pow im 4))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (- (* (pow im 2) (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (* (pow im 2) (log im)) (* (pow re 4) (log 10))))) (* 1/4 (/ 1 (log 10)))) (pow im 4))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (* (pow im 2) (log im)) (* (pow re 4) (log 10)))) (pow im 2))))
#s(approx (* (/ (pow im -4) (log 10)) 1/4) #s(hole binary64 (/ 1/4 (* (pow im 4) (log 10)))))
#s(approx (/ (pow im -4) (log 10)) #s(hole binary64 (/ 1 (* (pow im 4) (log 10)))))
#s(approx (pow im -4) #s(hole binary64 (/ 1 (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* (pow im 2) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10)))))))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (* (pow im 2) (- (* -2 (/ (pow (log 10) 2) (* (pow re 2) (pow (log 1/10) 3)))) (+ (* -2 (/ (log im) (* (pow re 2) (log 1/10)))) (+ (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10))))))) (* (pow re 2) (log 1/10)))) (* 16 (/ (* (pow (log 10) 2) (* (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow re 8)))))))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10)))))))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))))) (pow im 12))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (+ (* (pow im 2) (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))))) (pow im 12))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/8 (/ (* (pow im 2) (pow re 6)) (pow (log 1/10) 3))) (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))))) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))))) (pow im 12))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 6) (pow (log 10) 3))) (* (pow im 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))) (pow im 12))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 6) (pow (log 10) 3))) (* (pow im 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (+ (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* (pow im 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))))))) (pow im 12))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 6) (pow (log 10) 3))) (* (pow im 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (+ (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (log 1/10) 3))) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10))))))))))) (pow im 12))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (+ (* -1/2 (/ (pow im 2) (log 1/10))) (* -1/4 (/ (pow re 2) (log 10)))) (pow im 4))))
#s(approx (pow im -2) #s(hole binary64 (/ 1 (pow im 2))))
#s(approx (* (pow im 4) (log 10)) #s(hole binary64 (* (pow im 4) (log 10))))
#s(approx (pow im 4) #s(hole binary64 (pow im 4)))
#s(approx (pow (/ (log im) (log 10)) 3) #s(hole binary64 (/ (pow (log im) 3) (pow (log 10) 3))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* 1/4 (/ (* (pow im 2) (pow re 6)) (* (log 1/10) (log 10))))) (pow im 8))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* (pow im 2) (+ (* 1/4 (/ (pow re 6) (* (log 1/10) (log 10)))) (* (pow im 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))))))) (pow im 8))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* (pow im 2) (+ (* 1/4 (/ (pow re 6) (* (log 1/10) (log 10)))) (* (pow im 2) (- (+ (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/2 (/ (* (pow im 2) (* (pow re 2) (log im))) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))))))) (pow im 8))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* 1/4 (/ (* (pow im 2) (pow re 6)) (* (log 1/10) (log 10))))) (pow im 8))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* (pow im 2) (+ (* 1/4 (/ (* (pow im 2) (pow re 4)) (pow (log 1/10) 2))) (* 1/4 (/ (pow re 6) (* (log 1/10) (log 10))))))) (pow im 8))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow im 2) (pow re 2)) (log 1/10))) (* -1/4 (/ (pow re 4) (log 10)))) (pow im 4))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (- (* 1/2 (/ (* (pow im 2) (* (pow re 2) (log im))) (* (log 1/10) (log 10)))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (pow im 4))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (- (* (pow im 2) (- (/ (* (pow im 2) (pow (log im) 2)) (pow (log 10) 2)) (* -1/2 (/ (* (pow re 2) (log im)) (* (log 1/10) (log 10)))))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (pow im 4))))
#s(approx (pow (/ (log im) (log 10)) 2) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow im 2) (* (pow re 2) (log im))) (* (log 1/10) (log 10)))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (pow im 4))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (* (pow im 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (pow im 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4))))))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (log 10)))) (pow im 2))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) #s(hole binary64 (/ (- (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (log 1/10)))) (pow im 2))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10))))) (/ 1/4 (* (pow im 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log im) (* (pow re 4) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1 (/ (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (log (/ 1 im)))) (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (log (/ 1 im)))))) (pow im 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1/8 (/ (* (pow re 6) (pow (log 10) 2)) (* (pow im 6) (* (pow (log 1/10) 3) (pow (log (/ 1 im)) 2)))))) (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (* (pow im 4) (log (/ 1 im))))) (+ (* -1/2 (/ (* (pow re 2) (* (pow (log 10) 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2)))))) (* (pow im 6) (* (log 1/10) (pow (log (/ 1 im)) 2))))) (+ (* -1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log (/ 1 im)))))) (+ (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow im 4) (* (pow (log 1/10) 2) (log (/ 1 im)))))) (+ (* 1/2 (/ (* (pow re 2) (* (log 10) (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (log (/ 1 im)))) (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (log (/ 1 im)))))))) (* (pow im 6) (* (log 1/10) (log (/ 1 im)))))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (/ (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow im 10)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (- (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (* -1/16 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10)))))) (* 1/8 (/ 1 (pow (log 1/10) 3)))) (pow im 6))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (- (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2))))) (* -1/32 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2)))))))) (* 1/8 (/ 1 (pow (log 1/10) 3)))) (pow im 6))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (- (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2))))) (+ (* -1/32 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2))))) (* -1/64 (/ (pow re 6) (* (pow im 6) (pow (log 10) 3)))))))) (* 1/8 (/ 1 (pow (log 1/10) 3)))) (pow im 6))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (- (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (log 1/10)))) (pow im 2))))
#s(approx (pow (/ (log im) (log 10)) 3) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))) (+ (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 4) (pow (log 10) 2)))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10)))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log 10))))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2)))) (+ (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 4) (pow (log 10) 2)))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10)))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (pow re 6) (* (pow im 2) (* (log 1/10) (log 10)))))) (pow im 4))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (* (pow im 4) (pow (log 10) 2)))) (+ (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (pow re 6) (* (pow im 2) (* (log 1/10) (log 10))))))) (pow im 4))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* -1/2 (/ (pow re 2) (log 1/10))) (* -1/4 (/ (pow re 4) (* (pow im 2) (log 10))))) (pow im 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (- (+ (* -1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 4) (pow (log 10) 2)))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10))))))))
#s(approx (pow (/ (log im) (log 10)) 2) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 2) (pow (log 10) 2)))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (log 1/10) (log 10))))) (pow im 2))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (* (pow im 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (log (/ -1 im))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ -1 im)) (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ -1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ -1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (pow im 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4))))))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ -1 im)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ -1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log -1) (log 10)))))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log 10))))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* (pow re 4) (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (* (pow re 4) (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (* (pow re 4) (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10)))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))) (/ 1/4 (* (pow im 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (/ (log im) (* (pow re 4) (log 10))) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (* (pow re 4) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log 10))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log -1) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im))))))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (+ (log -1) (* -1 (log (/ -1 im)))))) (pow im 4))) (/ (log -1) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/8 (/ (* (pow re 6) (pow (log 10) 2)) (* (pow im 6) (* (pow (log 1/10) 3) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))) (/ (log -1) (log 10)))) (+ (* -1/2 (/ (* (pow re 2) (* (log 10) (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im))))))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (+ (log -1) (* -1 (log (/ -1 im)))))))) (* (pow im 6) (* (log 1/10) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* -1/2 (/ (* (pow re 2) (* (pow (log 10) 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2)))))) (* (pow im 6) (* (log 1/10) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))) (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow im 4) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (* (pow im 4) (+ (log -1) (* -1 (log (/ -1 im))))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (+ (/ (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow im 10)) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3)))))))
#s(approx (pow (/ (log im) (log 10)) 3) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))) (+ (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log 10))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2)))) (+ (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (- (+ (* 1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 4) (pow (log 10) 2)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))) (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))))))
#s(approx (pow (/ (log im) (log 10)) 2) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (log 1/10) (log 10)))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (pow (log 10) 2))))) (pow im 2))))
Calls

6 calls:

TimeVariablePointExpression
116.0ms
re
@0
((/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (log (pow (sqrt (+ (* re re) (* im im))) -1)) (pow (sqrt (+ (* re re) (* im im))) -1) (sqrt (+ (* re re) (* im im))) re im -1 (log 1/10) 1/10 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (/ (/ (* re re) (* im im)) (log 10)) (/ (* re re) (* im im)) (* re re) (* im im) (log 10) 10 -1/4 (/ -1/2 (log 1/10)) -1/2 (/ (log im) (log 10)) (log im) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10))) (* (pow re 4) (log 10)) (pow re 4) 4 (/ 1/2 (* (pow (* re im) 2) (log 10))) 1/2 (* (pow (* re im) 2) (log 10)) (pow (* re im) 2) (* re im) 2 (* (/ (pow im -4) (log 10)) 1/4) (/ (pow im -4) (log 10)) (pow im -4) -4 1/4 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (pow im -2) -2 (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) (* (* re re) -1/4) (* (pow im 4) (log 10)) (pow im 4) 3 (pow re 6) 6 (pow (/ (log im) (log 10)) 3) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))
68.0ms
re
@inf
((/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (log (pow (sqrt (+ (* re re) (* im im))) -1)) (pow (sqrt (+ (* re re) (* im im))) -1) (sqrt (+ (* re re) (* im im))) re im -1 (log 1/10) 1/10 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (/ (/ (* re re) (* im im)) (log 10)) (/ (* re re) (* im im)) (* re re) (* im im) (log 10) 10 -1/4 (/ -1/2 (log 1/10)) -1/2 (/ (log im) (log 10)) (log im) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10))) (* (pow re 4) (log 10)) (pow re 4) 4 (/ 1/2 (* (pow (* re im) 2) (log 10))) 1/2 (* (pow (* re im) 2) (log 10)) (pow (* re im) 2) (* re im) 2 (* (/ (pow im -4) (log 10)) 1/4) (/ (pow im -4) (log 10)) (pow im -4) -4 1/4 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (pow im -2) -2 (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) (* (* re re) -1/4) (* (pow im 4) (log 10)) (pow im 4) 3 (pow re 6) 6 (pow (/ (log im) (log 10)) 3) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))
64.0ms
im
@0
((/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (log (pow (sqrt (+ (* re re) (* im im))) -1)) (pow (sqrt (+ (* re re) (* im im))) -1) (sqrt (+ (* re re) (* im im))) re im -1 (log 1/10) 1/10 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (/ (/ (* re re) (* im im)) (log 10)) (/ (* re re) (* im im)) (* re re) (* im im) (log 10) 10 -1/4 (/ -1/2 (log 1/10)) -1/2 (/ (log im) (log 10)) (log im) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10))) (* (pow re 4) (log 10)) (pow re 4) 4 (/ 1/2 (* (pow (* re im) 2) (log 10))) 1/2 (* (pow (* re im) 2) (log 10)) (pow (* re im) 2) (* re im) 2 (* (/ (pow im -4) (log 10)) 1/4) (/ (pow im -4) (log 10)) (pow im -4) -4 1/4 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (pow im -2) -2 (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) (* (* re re) -1/4) (* (pow im 4) (log 10)) (pow im 4) 3 (pow re 6) 6 (pow (/ (log im) (log 10)) 3) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))
49.0ms
im
@inf
((/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (log (pow (sqrt (+ (* re re) (* im im))) -1)) (pow (sqrt (+ (* re re) (* im im))) -1) (sqrt (+ (* re re) (* im im))) re im -1 (log 1/10) 1/10 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (/ (/ (* re re) (* im im)) (log 10)) (/ (* re re) (* im im)) (* re re) (* im im) (log 10) 10 -1/4 (/ -1/2 (log 1/10)) -1/2 (/ (log im) (log 10)) (log im) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10))) (* (pow re 4) (log 10)) (pow re 4) 4 (/ 1/2 (* (pow (* re im) 2) (log 10))) 1/2 (* (pow (* re im) 2) (log 10)) (pow (* re im) 2) (* re im) 2 (* (/ (pow im -4) (log 10)) 1/4) (/ (pow im -4) (log 10)) (pow im -4) -4 1/4 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (pow im -2) -2 (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) (* (* re re) -1/4) (* (pow im 4) (log 10)) (pow im 4) 3 (pow re 6) 6 (pow (/ (log im) (log 10)) 3) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))
47.0ms
re
@-inf
((/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (log (pow (sqrt (+ (* re re) (* im im))) -1)) (pow (sqrt (+ (* re re) (* im im))) -1) (sqrt (+ (* re re) (* im im))) re im -1 (log 1/10) 1/10 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (log (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (/ (/ (* re re) (* im im)) (log 10)) (/ (* re re) (* im im)) (* re re) (* im im) (log 10) 10 -1/4 (/ -1/2 (log 1/10)) -1/2 (/ (log im) (log 10)) (log im) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10))) (* (pow re 4) (log 10)) (pow re 4) 4 (/ 1/2 (* (pow (* re im) 2) (log 10))) 1/2 (* (pow (* re im) 2) (log 10)) (pow (* re im) 2) (* re im) 2 (* (/ (pow im -4) (log 10)) 1/4) (/ (pow im -4) (log 10)) (pow im -4) -4 1/4 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (pow im -2) -2 (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) (* (* re re) -1/4) (* (pow im 4) (log 10)) (pow im 4) 3 (pow re 6) 6 (pow (/ (log im) (log 10)) 3) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))

rewrite395.0ms (5.8%)

Memory
-39.9MiB live, 347.4MiB allocated; 82ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0182424225
0193523999
0809322847
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
492 → 609
Calls
Call 1
Inputs
(/.f64 (log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64))) (log.f64 #s(literal 1/10 binary64)))
(log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64)))
(pow.f64 (hypot.f64 re im) #s(literal -1 binary64))
(hypot.f64 re im)
re
im
#s(literal -1 binary64)
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)))
(log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(fma.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im)))
(/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))
(fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))))
(/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64)))
(/.f64 (*.f64 re re) (*.f64 im im))
(*.f64 re re)
(*.f64 im im)
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
#s(literal -1/4 binary64)
(/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))
#s(literal -1/2 binary64)
(/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))
(log.f64 im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64))))
(*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))
(-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)))
(+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))))
(/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
(*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 re #s(literal 4 binary64))
#s(literal 4 binary64)
(/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))
#s(literal 1/2 binary64)
(*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 (*.f64 re im) #s(literal 2 binary64))
(*.f64 re im)
#s(literal 2 binary64)
(*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))
(/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 im #s(literal -4 binary64))
#s(literal -4 binary64)
#s(literal 1/4 binary64)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
(/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
(fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
(pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64))
(fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(pow.f64 im #s(literal -2 binary64))
#s(literal -2 binary64)
(/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
(*.f64 (*.f64 re re) #s(literal -1/4 binary64))
(*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 im #s(literal 4 binary64))
#s(literal 3 binary64)
(pow.f64 re #s(literal 6 binary64))
#s(literal 6 binary64)
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))
(+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64))
(*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))
(-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))
(*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (log (/ 1 im))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 im)) (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 im)) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 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 (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ 1 im)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (pow im 3))) (/ 1 im))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 5))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* -5/16 (/ (pow re 2) (pow im 7))) (* 3/8 (/ 1 (pow im 5))))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log im) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log im)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log im) (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (/ 1/2 (* (pow im 2) (log 10)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) #s(hole binary64 (/ -1/2 (* (pow im 2) (log 1/10)))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) #s(hole binary64 (- (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) #s(hole binary64 (/ -1/2 (log 1/10))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) #s(hole binary64 (- (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (log 1/10))))))
#s(approx (/ (/ (* re re) (* im im)) (log 10)) #s(hole binary64 (/ (pow re 2) (* (pow im 2) (log 10)))))
#s(approx (/ (* re re) (* im im)) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (log im) (* (pow re 4) (log 10)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (log im) (* (pow re 4) (log 10)))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (/ (log im) (* (pow re 4) (log 10))) #s(hole binary64 (/ (log im) (* (pow re 4) (log 10)))))
#s(approx (* (pow re 4) (log 10)) #s(hole binary64 (* (pow re 4) (log 10))))
#s(approx (pow re 4) #s(hole binary64 (pow re 4)))
#s(approx (/ 1/2 (* (pow (* re im) 2) (log 10))) #s(hole binary64 (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (* (pow (* re im) 2) (log 10)) #s(hole binary64 (* (pow im 2) (* (pow re 2) (log 10)))))
#s(approx (pow (* re im) 2) #s(hole binary64 (* (pow im 2) (pow re 2))))
#s(approx (* re im) #s(hole binary64 (* im re)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log im) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* (pow re 2) (- (* -1 (* (pow re 2) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log im) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (* (pow re 2) (- (* -1/8 (/ (pow (log 10) 2) (* (pow im 6) (* (pow (log 1/10) 3) (pow (log im) 2))))) (+ (* -1/2 (/ (* (log 10) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im)))) (* (pow im 2) (* (log 1/10) (log im))))) (+ (* -1/2 (/ (* (pow (log 10) 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* (pow im 2) (* (log 1/10) (pow (log im) 2))))) (* 1/4 (/ 1 (* (pow im 6) (* (log 1/10) (log im))))))))) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (pow (log im) 3) (pow (log 10) 3))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* (pow re 6) (- (* -3/16 (/ (pow re 2) (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* (pow re 6) (- (* (pow re 2) (- (* -3/32 (/ (pow re 2) (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ -1/8 (* (pow im 6) (pow (log 1/10) 3)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (- (* -3/16 (/ (pow re 2) (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (- (* (pow re 2) (- (* -3/32 (/ (pow re 2) (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (- (* -1/64 (/ (pow re 2) (* (pow im 12) (pow (log 10) 3)))) (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (/ -1/2 (* (pow im 2) (log 1/10)))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (- (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))
#s(approx (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (* (* re re) -1/4) #s(hole binary64 (* -1/4 (pow re 2))))
#s(approx (pow re 6) #s(hole binary64 (pow re 6)))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log im)) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (+ (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* 1/4 (/ (pow re 2) (* (pow im 6) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 4) (+ (* 1/4 (/ (pow re 2) (* (pow im 6) (* (log 1/10) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 4) (+ (* (pow re 2) (+ (* 1/16 (/ (pow re 2) (* (pow im 8) (pow (log 10) 2)))) (* 1/4 (/ 1 (* (pow im 6) (* (log 1/10) (log 10))))))) (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2))))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* (pow re 2) (- (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log im)) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* (pow re 2) (- (* 1/4 (/ (* (pow re 2) (log im)) (* (pow im 4) (pow (log 10) 2)))) (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/2 (/ (* (pow re 2) (log im)) (* (pow im 2) (* (log 1/10) (log 10)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 2) (+ (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 2) (log im)) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (* (pow re 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (log (/ 1 re))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 re)) (* -1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4))))))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ 1 re)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ 1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (* (pow re 2) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) #s(hole binary64 (* -1 (* (pow re 2) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10))))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) #s(hole binary64 (* -1 (* (pow re 2) (+ (* 1/4 (/ 1 (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* (pow re 4) (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ -1/4 (* (pow im 4) (log 10)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (* (pow im 2) (log 10)))) (/ (log im) (* (pow re 2) (log 10)))) (pow re 2))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1 (* (pow re 4) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* (pow re 4) (- (* -3 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (* -4 (/ (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (pow re 4))) (+ (* -2 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* (pow re 4) (- (+ (* -3 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (* -2 (/ (* (pow im 2) (pow (log 10) 2)) (* (pow re 6) (pow (log 1/10) 3))))) (+ (* -8 (/ (* (pow im 6) (* (pow (log 10) 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (* (pow re 6) (log 1/10)))) (+ (* -4 (/ (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (pow re 4))) (+ (* -2 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (* -2 (/ (* (pow im 2) (log im)) (* (pow re 6) (log 1/10)))) (+ (* 4 (/ (* (pow im 2) (* (log 10) (- (* -3 (/ (log 10) (pow (log 1/10) 2))) (+ (* -4 (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))))) (* -2 (/ (log 10) (pow (log 1/10) 2))))))) (* (pow re 6) (log 1/10)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* -1/64 (/ (pow re 12) (* (pow im 12) (pow (log 10) 3))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* -1 (* (pow re 12) (+ (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))) (* 3/32 (/ 1 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2)))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* (pow re 12) (- (* -1 (/ (+ (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (pow re 2))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* (pow re 12) (- (* -1 (/ (+ (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (* (pow re 2) (pow (log 1/10) 3)))))) (pow re 4))) (+ (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))) (/ 3/32 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2))))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* -1/64 (/ (pow re 6) (* (pow im 12) (pow (log 10) 3))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* -1 (* (pow re 6) (+ (* 3/32 (/ 1 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2)))))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* (pow re 6) (- (* -1 (/ (+ (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (pow re 2))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* (pow re 6) (- (* -1 (/ (+ (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (* (pow re 2) (pow (log 1/10) 3)))))) (pow re 4))) (+ (/ 3/32 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2))))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (* -1 (* (pow re 2) (+ (* 1/4 (/ 1 (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* 1/16 (/ (pow re 8) (* (pow im 8) (pow (log 10) 2))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* (pow re 8) (+ (* 1/4 (/ 1 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10)))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* (pow re 8) (- (+ (/ 1/4 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10))))) (+ (* 1/4 (/ 1 (* (pow im 4) (* (pow re 4) (pow (log 1/10) 2))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2)))))) (* -1/4 (/ (log im) (* (pow im 4) (* (pow re 4) (pow (log 10) 2)))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* (pow re 8) (- (+ (* 1/2 (/ (log im) (* (pow im 2) (* (pow re 6) (* (log 1/10) (log 10)))))) (+ (/ 1/4 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10))))) (+ (* 1/4 (/ 1 (* (pow im 4) (* (pow re 4) (pow (log 1/10) 2))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2))))))) (* -1/4 (/ (log im) (* (pow im 4) (* (pow re 4) (pow (log 10) 2)))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* 1/16 (/ (pow re 8) (* (pow im 8) (pow (log 10) 2))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 8) (+ (* 1/4 (/ 1 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10)))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 8) (+ (/ 1/4 (* (pow im 4) (* (pow re 4) (pow (log 1/10) 2)))) (+ (/ 1/4 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2)))))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* -1 (* (pow re 4) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (* 1/4 (/ (* (pow re 4) (log im)) (* (pow im 4) (pow (log 10) 2))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ (log im) (* (pow im 2) (* (pow re 2) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (* (pow re 4) (- (/ (pow (log im) 2) (* (pow re 4) (pow (log 10) 2))) (+ (* -1/2 (/ (log im) (* (pow im 2) (* (pow re 2) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/4 (/ (* (pow re 4) (log im)) (* (pow im 4) (pow (log 10) 2))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (+ (* -1/2 (/ (log im) (* (pow im 2) (* (pow re 2) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (* (pow re 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (log (/ -1 re))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ -1 re)) (* -1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ -1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ -1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4))))))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ -1 re)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ -1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 re)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 re)) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 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 (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (pow re 3))) (/ 1 re))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 5))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/16 (/ (pow im 2) (pow re 7))) (* 3/8 (/ 1 (pow re 5))))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log re) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (log re)))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (log re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* 1/2 (/ (* (pow im 2) (pow re 2)) (log 10)))) (pow im 4))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (+ (* 1/2 (/ (pow re 2) (log 10))) (/ (* (pow im 2) (log im)) (log 10))))) (pow im 4))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 2) (log 10))) (* 1/2 (/ (pow im 2) (log 10)))) (pow im 4))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) #s(hole binary64 (/ (+ (* -1/2 (/ (pow im 2) (log 1/10))) (* -1/4 (/ (pow re 2) (log 10)))) (pow im 4))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) #s(hole binary64 (/ (+ (* -1/2 (/ (pow im 2) (log 1/10))) (* -1/4 (/ (pow re 2) (log 10)))) (pow im 2))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* 1/2 (/ (* (pow im 2) (pow re 2)) (log 10)))) (pow im 4))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (+ (* 1/2 (/ (pow re 2) (log 10))) (/ (* (pow im 2) (log im)) (log 10))))) (pow im 4))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (- (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (* 1/4 (/ 1 (log 10)))) (pow im 4))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (- (* (pow im 2) (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (* (pow im 2) (log im)) (* (pow re 4) (log 10))))) (* 1/4 (/ 1 (log 10)))) (pow im 4))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (* (pow im 2) (log im)) (* (pow re 4) (log 10)))) (pow im 2))))
#s(approx (* (/ (pow im -4) (log 10)) 1/4) #s(hole binary64 (/ 1/4 (* (pow im 4) (log 10)))))
#s(approx (/ (pow im -4) (log 10)) #s(hole binary64 (/ 1 (* (pow im 4) (log 10)))))
#s(approx (pow im -4) #s(hole binary64 (/ 1 (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* (pow im 2) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10)))))))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (* (pow im 2) (- (* -2 (/ (pow (log 10) 2) (* (pow re 2) (pow (log 1/10) 3)))) (+ (* -2 (/ (log im) (* (pow re 2) (log 1/10)))) (+ (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10))))))) (* (pow re 2) (log 1/10)))) (* 16 (/ (* (pow (log 10) 2) (* (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow re 8)))))))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10)))))))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))))) (pow im 12))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (+ (* (pow im 2) (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))))) (pow im 12))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/8 (/ (* (pow im 2) (pow re 6)) (pow (log 1/10) 3))) (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))))) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))))) (pow im 12))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 6) (pow (log 10) 3))) (* (pow im 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))) (pow im 12))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 6) (pow (log 10) 3))) (* (pow im 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (+ (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* (pow im 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))))))) (pow im 12))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 6) (pow (log 10) 3))) (* (pow im 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (+ (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (log 1/10) 3))) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10))))))))))) (pow im 12))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (+ (* -1/2 (/ (pow im 2) (log 1/10))) (* -1/4 (/ (pow re 2) (log 10)))) (pow im 4))))
#s(approx (pow im -2) #s(hole binary64 (/ 1 (pow im 2))))
#s(approx (* (pow im 4) (log 10)) #s(hole binary64 (* (pow im 4) (log 10))))
#s(approx (pow im 4) #s(hole binary64 (pow im 4)))
#s(approx (pow (/ (log im) (log 10)) 3) #s(hole binary64 (/ (pow (log im) 3) (pow (log 10) 3))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* 1/4 (/ (* (pow im 2) (pow re 6)) (* (log 1/10) (log 10))))) (pow im 8))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* (pow im 2) (+ (* 1/4 (/ (pow re 6) (* (log 1/10) (log 10)))) (* (pow im 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))))))) (pow im 8))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* (pow im 2) (+ (* 1/4 (/ (pow re 6) (* (log 1/10) (log 10)))) (* (pow im 2) (- (+ (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/2 (/ (* (pow im 2) (* (pow re 2) (log im))) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))))))) (pow im 8))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* 1/4 (/ (* (pow im 2) (pow re 6)) (* (log 1/10) (log 10))))) (pow im 8))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* (pow im 2) (+ (* 1/4 (/ (* (pow im 2) (pow re 4)) (pow (log 1/10) 2))) (* 1/4 (/ (pow re 6) (* (log 1/10) (log 10))))))) (pow im 8))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow im 2) (pow re 2)) (log 1/10))) (* -1/4 (/ (pow re 4) (log 10)))) (pow im 4))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (- (* 1/2 (/ (* (pow im 2) (* (pow re 2) (log im))) (* (log 1/10) (log 10)))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (pow im 4))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (- (* (pow im 2) (- (/ (* (pow im 2) (pow (log im) 2)) (pow (log 10) 2)) (* -1/2 (/ (* (pow re 2) (log im)) (* (log 1/10) (log 10)))))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (pow im 4))))
#s(approx (pow (/ (log im) (log 10)) 2) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow im 2) (* (pow re 2) (log im))) (* (log 1/10) (log 10)))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (pow im 4))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (* (pow im 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ 1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (pow im 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4))))))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (log 10)))) (pow im 2))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) #s(hole binary64 (/ (- (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (log 1/10)))) (pow im 2))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10))))) (/ 1/4 (* (pow im 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log im) (* (pow re 4) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1 (/ (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (log (/ 1 im)))) (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (log (/ 1 im)))))) (pow im 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1/8 (/ (* (pow re 6) (pow (log 10) 2)) (* (pow im 6) (* (pow (log 1/10) 3) (pow (log (/ 1 im)) 2)))))) (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (* (pow im 4) (log (/ 1 im))))) (+ (* -1/2 (/ (* (pow re 2) (* (pow (log 10) 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2)))))) (* (pow im 6) (* (log 1/10) (pow (log (/ 1 im)) 2))))) (+ (* -1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log (/ 1 im)))))) (+ (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow im 4) (* (pow (log 1/10) 2) (log (/ 1 im)))))) (+ (* 1/2 (/ (* (pow re 2) (* (log 10) (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (log (/ 1 im)))) (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (log (/ 1 im)))))))) (* (pow im 6) (* (log 1/10) (log (/ 1 im)))))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (/ (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow im 10)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (- (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (* -1/16 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10)))))) (* 1/8 (/ 1 (pow (log 1/10) 3)))) (pow im 6))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (- (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2))))) (* -1/32 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2)))))))) (* 1/8 (/ 1 (pow (log 1/10) 3)))) (pow im 6))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (- (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2))))) (+ (* -1/32 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2))))) (* -1/64 (/ (pow re 6) (* (pow im 6) (pow (log 10) 3)))))))) (* 1/8 (/ 1 (pow (log 1/10) 3)))) (pow im 6))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (- (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (log 1/10)))) (pow im 2))))
#s(approx (pow (/ (log im) (log 10)) 3) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))) (+ (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 4) (pow (log 10) 2)))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10)))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log 10))))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2)))) (+ (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 4) (pow (log 10) 2)))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10)))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (pow re 6) (* (pow im 2) (* (log 1/10) (log 10)))))) (pow im 4))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (* (pow im 4) (pow (log 10) 2)))) (+ (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (pow re 6) (* (pow im 2) (* (log 1/10) (log 10))))))) (pow im 4))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* -1/2 (/ (pow re 2) (log 1/10))) (* -1/4 (/ (pow re 4) (* (pow im 2) (log 10))))) (pow im 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (- (+ (* -1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 4) (pow (log 10) 2)))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10))))))))
#s(approx (pow (/ (log im) (log 10)) 2) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 2) (pow (log 10) 2)))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (log 1/10) (log 10))))) (pow im 2))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (* (pow im 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (log (/ -1 im))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ -1 im)) (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ -1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) #s(hole binary64 (+ (log (/ -1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (pow im 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4))))))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (/ -1 im)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ -1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (log (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log -1) (log 10)))))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log 10))))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* (pow re 4) (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (* (pow re 4) (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (* (pow re 4) (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10)))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))) (/ 1/4 (* (pow im 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (/ (log im) (* (pow re 4) (log 10))) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (* (pow re 4) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log 10))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log -1) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im))))))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (+ (log -1) (* -1 (log (/ -1 im)))))) (pow im 4))) (/ (log -1) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/8 (/ (* (pow re 6) (pow (log 10) 2)) (* (pow im 6) (* (pow (log 1/10) 3) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))) (/ (log -1) (log 10)))) (+ (* -1/2 (/ (* (pow re 2) (* (log 10) (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im))))))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (+ (log -1) (* -1 (log (/ -1 im)))))))) (* (pow im 6) (* (log 1/10) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* -1/2 (/ (* (pow re 2) (* (pow (log 10) 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2)))))) (* (pow im 6) (* (log 1/10) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))) (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow im 4) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (* (pow im 4) (+ (log -1) (* -1 (log (/ -1 im))))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (+ (/ (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow im 10)) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3)))))))
#s(approx (pow (/ (log im) (log 10)) 3) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))) (+ (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log 10))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2)))) (+ (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (- (+ (* 1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 4) (pow (log 10) 2)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))) (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))))))
#s(approx (pow (/ (log im) (log 10)) 2) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (log 1/10) (log 10)))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (pow (log 10) 2))))) (pow im 2))))
Outputs
(/.f64 (neg.f64 (log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 (log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64))) (log.f64 #s(literal 1/10 binary64)))
(*.f64 #s(literal -1 binary64) (log.f64 (hypot.f64 re im)))
(log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64)))
(*.f64 (pow.f64 (hypot.f64 re im) #s(literal -1/2 binary64)) (pow.f64 (hypot.f64 re im) #s(literal -1/2 binary64)))
(pow.f64 (hypot.f64 re im) #s(literal -1 binary64))
(pow.f64 (fma.f64 re re (*.f64 im im)) #s(literal -1/2 binary64))
(/.f64 #s(literal 1 binary64) (hypot.f64 re im))
(exp.f64 (*.f64 (log.f64 (hypot.f64 re im)) #s(literal -1 binary64)))
(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)
re
im
#s(literal -1 binary64)
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (neg.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)))
(log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im)))
(log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(/.f64 (-.f64 (*.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
(fma.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
(+.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im)))
(/.f64 (neg.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))))) (neg.f64 (*.f64 im im)))
(/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))
(+.f64 (/.f64 (*.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64)) (*.f64 im im)) (/.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (*.f64 im im)))
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64)) (*.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))))) (-.f64 (*.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64)) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64)) (*.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64)) (-.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 (*.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64)) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))))))
(fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))))
(+.f64 (*.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64)) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))))
(/.f64 (neg.f64 (*.f64 (/.f64 re im) (/.f64 re im))) (neg.f64 (log.f64 #s(literal 10 binary64))))
(/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64)))
(*.f64 (/.f64 re im) (/.f64 re im))
(/.f64 (neg.f64 (*.f64 re re)) (neg.f64 (*.f64 im im)))
(/.f64 (*.f64 re re) (*.f64 im im))
(*.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 re #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(*.f64 (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)))
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
#s(literal -1/4 binary64)
(/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))
(/.f64 #s(literal 1/2 binary64) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
#s(literal -1/2 binary64)
(/.f64 (neg.f64 (log.f64 im)) (neg.f64 (log.f64 #s(literal 10 binary64))))
(/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))
(log.f64 im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64))))
(*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))
(/.f64 (-.f64 (*.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))))) (*.f64 (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)))) (+.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))))
(/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)) #s(literal 3 binary64))) (fma.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)) (*.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))))))
(-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)))
(+.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (neg.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/4 binary64)))
(/.f64 (-.f64 (*.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))))) (-.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (-.f64 (*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))))
(/.f64 (fma.f64 (log.f64 im) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/2 binary64))) (*.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))))
(+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))))
(/.f64 (neg.f64 (log.f64 im)) (neg.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
(*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))
(log.f64 (pow.f64 #s(literal 10 binary64) (pow.f64 re #s(literal 4 binary64))))
(*.f64 (*.f64 re re) (*.f64 re re))
(pow.f64 re #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 4 binary64)))
#s(literal 4 binary64)
(/.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))))
(/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))
#s(literal 1/2 binary64)
(*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))
(log.f64 (pow.f64 #s(literal 10 binary64) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))
(*.f64 (pow.f64 (*.f64 re im) #s(literal 1 binary64)) (pow.f64 (*.f64 re im) #s(literal 1 binary64)))
(*.f64 (*.f64 re im) (*.f64 re im))
(*.f64 (*.f64 re re) (*.f64 im im))
(pow.f64 (*.f64 re im) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 re im)) #s(literal 2 binary64)))
(*.f64 re im)
#s(literal 2 binary64)
(*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))
(/.f64 (neg.f64 (pow.f64 im #s(literal -4 binary64))) (neg.f64 (log.f64 #s(literal 10 binary64))))
(/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64)))
(*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 im #s(literal -2 binary64)))
(pow.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1 binary64))
(pow.f64 im #s(literal -4 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 4 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 im #s(literal 4 binary64))))
(exp.f64 (*.f64 (log.f64 im) #s(literal -4 binary64)))
#s(literal -4 binary64)
#s(literal 1/4 binary64)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
(/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
(+.f64 (/.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))) (/.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
(/.f64 (-.f64 (*.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)))) (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))) (-.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (-.f64 (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (*.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))))
(fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
(+.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
(*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3/2 binary64)) (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3/2 binary64)))
(*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))) (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
(*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))
(pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))) #s(literal 3 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)))) (*.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))) (-.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))))
(fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(+.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(*.f64 (pow.f64 im #s(literal -1 binary64)) (pow.f64 im #s(literal -1 binary64)))
(pow.f64 (*.f64 im im) #s(literal -1 binary64))
(pow.f64 im #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (*.f64 im im))
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 im im)))
(exp.f64 (*.f64 (log.f64 im) #s(literal -2 binary64)))
#s(literal -2 binary64)
(*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64))) (neg.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
(*.f64 (*.f64 re re) #s(literal -1/4 binary64))
(*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))
(log.f64 (pow.f64 #s(literal 10 binary64) (pow.f64 im #s(literal 4 binary64))))
(*.f64 (*.f64 im im) (*.f64 im im))
(pow.f64 im #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 4 binary64)))
#s(literal 3 binary64)
(*.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))
(pow.f64 re #s(literal 6 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 6 binary64)))
#s(literal 6 binary64)
(*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3/2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
(*.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)))
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))
(/.f64 (neg.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64))) (neg.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))))
(/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64)))
(/.f64 (-.f64 (*.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64))) (*.f64 (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))) (-.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
(/.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (*.f64 (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))) (*.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))))
(fma.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 1 binary64)) (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 1 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 re re) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(fma.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(*.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 1 binary64)) (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 re re) #s(literal 2 binary64)))
(*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
(pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) #s(literal 2 binary64)))
(*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))
(/.f64 (-.f64 (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))) (+.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
(fma.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 1 binary64)) (*.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(fma.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (*.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(+.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 1 binary64)))
(*.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) #s(literal 2 binary64)))
(*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (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 #s(literal 1/10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (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 #s(literal 1/10 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (neg.f64 (log.f64 im)))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (+.f64 (neg.f64 (log.f64 im)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (fma.f64 #s(literal -1 binary64) (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 (pow (sqrt (+ (* re re) (* im im))) -1)) (fma.f64 #s(literal -1 binary64) (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 (pow (sqrt (+ (* re re) (* im im))) -1) (pow.f64 im #s(literal -1 binary64)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (pow.f64 im #s(literal -1 binary64))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (fma.f64 (*.f64 re re) (fma.f64 #s(literal 3/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -3 binary64)))) (pow.f64 im #s(literal -1 binary64))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (fma.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -5/16 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 7 binary64))) (*.f64 #s(literal 3/8 binary64) (pow.f64 im #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -3 binary64)))) (pow.f64 im #s(literal -1 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)
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64))) (*.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 #s(literal 1/10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64))) (*.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 #s(literal 1/10 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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))))) (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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))))) (log.f64 im)))
#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 im) (/.f64 re 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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (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 #s(literal 10 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) (/.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal -1 binary64)))))
#s(approx (/ (/ (* re re) (* im im)) (log 10)) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (* re re) (* im im)) (*.f64 (/.f64 re im) (/.f64 re im)))
#s(approx (* re re) (*.f64 re re))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (pow.f64 re #s(literal 4 binary64))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (pow.f64 re #s(literal 4 binary64))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (pow.f64 re #s(literal 4 binary64))))
#s(approx (/ (log im) (* (pow re 4) (log 10))) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (* (pow re 4) (log 10)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
#s(approx (pow re 4) (pow.f64 re #s(literal 4 binary64)))
#s(approx (/ 1/2 (* (pow (* re im) 2) (log 10))) (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))
#s(approx (* (pow (* re im) 2) (log 10)) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))
#s(approx (pow (* re im) 2) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))
#s(approx (* re im) (*.f64 im re))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 im)))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (log.f64 im)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (-.f64 (*.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)) (pow.f64 (log.f64 im) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 im im)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 im)))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (log.f64 im))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 im)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 im im)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 im) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 im))) #s(literal -1 binary64))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 im)))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (log.f64 im)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (fma.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -3/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (fma.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -3/32 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal -3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (fma.f64 #s(literal -3/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -3/32 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal -3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (fma.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))) (*.f64 #s(literal -3/32 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64)))) (*.f64 #s(literal -3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (/.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))))
#s(approx (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (* (* re re) -1/4) (*.f64 #s(literal -1/4 binary64) (*.f64 re re)))
#s(approx (pow re 6) (pow.f64 re #s(literal 6 binary64)))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (fma.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (fma.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (-.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (*.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 #s(literal 1/10 binary64)) #s(literal 2 binary64))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 (*.f64 re re) (fma.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (*.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 #s(literal 10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (fma.f64 (*.f64 re re) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 im) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (log.f64 im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 im) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 im #s(literal 6 binary64))))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (neg.f64 (log.f64 re)))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (+.f64 (neg.f64 (log.f64 re)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (+.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (fma.f64 #s(literal -1 binary64) (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (pow.f64 re #s(literal -1 binary64)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) re))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))) re))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 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)))))) 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 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 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)) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (neg.f64 (log.f64 re)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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 binary64) (neg.f64 (log.f64 re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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)))) (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)))) (*.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 (sqrt (+ (* re re) (* im im)))) (log 10)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 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)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (*.f64 (*.f64 re re) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 #s(literal -1/4 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (-.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -3 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal -3 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 im (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))))) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (-.f64 (*.f64 #s(literal -3 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -4 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (*.f64 #s(literal -2 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))))))) (log.f64 #s(literal 1/10 binary64)))) (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 12 binary64)) (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 re #s(literal 12 binary64)) (fma.f64 #s(literal 1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 3/32 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) #s(literal -1 binary64)))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (*.f64 (pow.f64 re #s(literal 12 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 3/32 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal -1 binary64)))) (*.f64 re re)) (*.f64 #s(literal -1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (*.f64 (pow.f64 re #s(literal 12 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) #s(literal -1 binary64)))) (pow.f64 re #s(literal 4 binary64)))) (fma.f64 #s(literal 1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal 3/32 binary64) (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal 3/32 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) #s(literal -1 binary64)) (*.f64 #s(literal 1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 3/32 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal -1 binary64)))) (*.f64 re re)) (*.f64 #s(literal -1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (*.f64 (pow.f64 re #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) #s(literal -1 binary64)))) (pow.f64 re #s(literal 4 binary64)))) (+.f64 (/.f64 #s(literal 3/32 binary64) (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1 binary64)))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (*.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (*.f64 (pow.f64 re #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal -1 binary64)) (*.f64 #s(literal 1/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (*.f64 (pow.f64 re #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (*.f64 (pow.f64 re #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (*.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (*.f64 (pow.f64 re #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal -1 binary64)) (*.f64 #s(literal 1/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (*.f64 (pow.f64 re #s(literal 8 binary64)) (+.f64 (/.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 #s(literal 1/10 binary64)) #s(literal 2 binary64))))) (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (*.f64 #s(literal 1/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 im) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 im) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 im #s(literal 6 binary64))))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log.f64 (/.f64 #s(literal -1 binary64) re)))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (-.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (/.f64 #s(literal -1 binary64) re))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) re)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))) re)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 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)))))) 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 (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 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)) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (log.f64 (/.f64 #s(literal -1 binary64) re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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)))) (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)))) (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 (sqrt (+ (* re re) (* im im)))) (log 10)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 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)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (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 #s(literal 1/10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (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 #s(literal 1/10 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (fma.f64 #s(literal -1 binary64) (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 (pow (sqrt (+ (* re re) (* im im))) -1)) (fma.f64 #s(literal -1 binary64) (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 (pow (sqrt (+ (* re re) (* im im))) -1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) (pow.f64 re #s(literal -1 binary64))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (fma.f64 (*.f64 im im) (fma.f64 #s(literal 3/8 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -3 binary64)))) (pow.f64 re #s(literal -1 binary64))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (fma.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (fma.f64 #s(literal -5/16 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 7 binary64))) (*.f64 #s(literal 3/8 binary64) (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -3 binary64)))) (pow.f64 re #s(literal -1 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 im im)
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))) (*.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 #s(literal 1/10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))) (*.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 #s(literal 1/10 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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))))) (log.f64 re)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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))))) (log.f64 re)))
#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 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (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 #s(literal 10 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) (/.f64 (*.f64 (*.f64 im im) (log.f64 im)) (log.f64 #s(literal 10 binary64)))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 im im)))
#s(approx (* im im) (*.f64 im im))
#s(approx (/ (log im) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (log im) (log.f64 im))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) (/.f64 (*.f64 (*.f64 im im) (log.f64 im)) (log.f64 #s(literal 10 binary64)))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (fma.f64 (*.f64 im im) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (*.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (*.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))) (*.f64 im im)))
#s(approx (* (/ (pow im -4) (log 10)) 1/4) (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (pow im -4) (log 10)) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))
#s(approx (pow im -4) (pow.f64 im #s(literal -4 binary64)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 re re))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 re re)) (/.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (log.f64 #s(literal 1/10 binary64))))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 re re)) (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 re re) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))))) (fma.f64 #s(literal -2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 re re)) (/.f64 (-.f64 (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 re re))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 re re)) (/.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (log.f64 #s(literal 1/10 binary64))))))) (log.f64 #s(literal 1/10 binary64)))) (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))))) (pow.f64 re #s(literal 8 binary64))))))))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 re re)) (/.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (log.f64 #s(literal 1/10 binary64))))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))))))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 im im) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (pow im -2) (pow.f64 im #s(literal -2 binary64)))
#s(approx (* (pow im 4) (log 10)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
#s(approx (pow im 4) (pow.f64 im #s(literal 4 binary64)))
#s(approx (pow (/ (log im) (log 10)) 3) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (/.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))))) (pow.f64 im #s(literal 8 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))) (pow.f64 im #s(literal 8 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (/.f64 (*.f64 (*.f64 re re) (log.f64 im)) (log.f64 #s(literal 10 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))) (pow.f64 im #s(literal 8 binary64))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (/.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))))) (pow.f64 im #s(literal 8 binary64))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))) (pow.f64 im #s(literal 8 binary64))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (/.f64 (*.f64 (*.f64 re re) (log.f64 im)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (/.f64 (fma.f64 (*.f64 im im) (-.f64 (/.f64 (pow.f64 (*.f64 im (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (pow (/ (log im) (log 10)) 2) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (/.f64 (*.f64 (*.f64 re re) (log.f64 im)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (+.f64 (neg.f64 (log.f64 im)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (fma.f64 #s(literal -1 binary64) (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))))))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)))) im))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))))) im))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re 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 im) (/.f64 re 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 im) (/.f64 re 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 im) (/.f64 re im))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 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)) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)) (*.f64 #s(literal 1 binary64) (neg.f64 (log.f64 im)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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 binary64) (neg.f64 (log.f64 im)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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)))) (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 im) (/.f64 re 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 im) (/.f64 re 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 im) (/.f64 re 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 im) (/.f64 re im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 im (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re 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 im) (/.f64 re 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 im) (/.f64 re im))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 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)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (*.f64 im im)))
#s(approx (/ (+ (* (/ (/ (* re re) (* im im)) (log 10)) -1/4) (/ -1/2 (log 1/10))) (* im im)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal -1 binary64)))) (*.f64 im im)))
#s(approx (/ (log im) (log 10)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (log im) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))) (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))))
#s(approx (/ (log im) (* (pow re 4) (log 10))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (neg.f64 (log.f64 im))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (neg.f64 (log.f64 im)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (neg.f64 (log.f64 im))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (neg.f64 (log.f64 im))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (neg.f64 (log.f64 im))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (neg.f64 (log.f64 im))))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (neg.f64 (log.f64 im))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (*.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 8 binary64))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 8 binary64))) (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 10 binary64)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 #s(literal 1/8 binary64) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal -3 binary64)))) (pow.f64 im #s(literal 6 binary64))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))) (*.f64 #s(literal 1/8 binary64) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal -3 binary64)))) (pow.f64 im #s(literal 6 binary64))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))))))))) (*.f64 #s(literal 1/8 binary64) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal -3 binary64)))) (pow.f64 im #s(literal 6 binary64))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal -1 binary64)))) (*.f64 im im)))
#s(approx (pow (/ (log im) (log 10)) 3) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (-.f64 (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 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (-.f64 (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 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))) (*.f64 im im)))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))))
#s(approx (pow (/ (log im) (log 10)) 2) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (*.f64 im (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))) (*.f64 im im)))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (log.f64 (/.f64 #s(literal -1 binary64) im)))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (-.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (log (pow (sqrt (+ (* re re) (* im im))) -1)) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))))))))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (/.f64 #s(literal -1 binary64) im))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)))) im)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))))) im)))
#s(approx (pow (sqrt (+ (* re re) (* im im))) -1) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re 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 im) (/.f64 re 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 im) (/.f64 re 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 im) (/.f64 re im)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 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)) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (log.f64 (/.f64 #s(literal -1 binary64) im)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)) (*.f64 #s(literal 1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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)))) (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 im) (/.f64 re 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 im) (/.f64 re 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 im) (/.f64 re 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 im) (/.f64 re im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) (*.f64 im (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re 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 im) (/.f64 re 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 im) (/.f64 re im)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 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)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log im) (log 10)) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))))
#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 (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (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 #s(literal 10 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))) (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log im) (* (pow re 4) (log 10))) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)) (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 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (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))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 8 binary64))) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 8 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 10 binary64))) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))))
#s(approx (pow (/ (log im) (log 10)) 3) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.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 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 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 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (-.f64 (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 #s(literal 1/10 binary64)) #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 #s(literal 10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 re re) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (-.f64 (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 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 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 #s(literal 10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 re re) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (/.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 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 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 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (-.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (pow.f64 (log.f64 #s(literal 10 binary64)) #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 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 re re) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))))
#s(approx (pow (/ (log im) (log 10)) 2) (/.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 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 re re) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 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 #s(literal 10 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (*.f64 im (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))))) (*.f64 im im)))

eval172.0ms (2.5%)

Memory
14.5MiB live, 158.7MiB allocated; 20ms collecting garbage
Compiler

Compiled 81 005 to 4 114 computations (94.9% saved)

prune92.0ms (1.4%)

Memory
-24.6MiB live, 75.5MiB allocated; 6ms collecting garbage
Pruning

20 alts after pruning (16 fresh and 4 done)

PrunedKeptTotal
New86614880
Fresh123
Picked415
Done134
Total87220892
Accuracy
99.9%
Counts
892 → 20
Alt Table
Click to see full alt table
StatusAccuracyProgram
14.9%
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (log.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) (log.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))))) (log.f64 #s(literal 10 binary64)))
50.8%
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
✓50.9%
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 #s(literal 10 binary64)))
✓98.2%
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
✓99.0%
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
▶98.2%
(/.f64 (log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
✓98.2%
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
▶98.8%
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))) (log.f64 #s(literal 1/10 binary64)))
81.6%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 #s(approx (/ (/ (* re re) (* im im)) (log 10)) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
▶58.8%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
▶58.9%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
54.4%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3/2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3/2 binary64)))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
59.0%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (-.f64 (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (*.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
81.6%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (-.f64 (*.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
81.6%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (+.f64 (pow.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
74.9%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 #s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
7.0%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -3 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))))))
25.8%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (*.f64 (*.f64 re re) (*.f64 re re)))))
▶25.8%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
25.6%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (pow.f64 re #s(literal 4 binary64)))))
Compiler

Compiled 3 508 to 1 482 computations (57.8% saved)

series290.0ms (4.3%)

Memory
13.2MiB live, 253.2MiB allocated; 21ms collecting garbage
Counts
76 → 435
Calls
Call 1
Inputs
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))) (log.f64 #s(literal 1/10 binary64)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im)))
(-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))
(*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)))
#s(literal -1/2 binary64)
(*.f64 (/.f64 re im) (/.f64 re im))
(/.f64 re im)
re
im
(log.f64 im)
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im)))
(/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))
#s(literal 1 binary64)
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64))))
(*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))
(-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
(/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))
(fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))
#s(literal 1/2 binary64)
(pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))
(*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))
(*.f64 im im)
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
#s(literal -1 binary64)
(/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))
(*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))
(*.f64 re re)
(*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))
(/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 im #s(literal -4 binary64))
#s(literal -4 binary64)
#s(literal 1/4 binary64)
(pow.f64 re #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
(fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
(pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64))
(fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))
(pow.f64 im #s(literal -2 binary64))
#s(literal -2 binary64)
(/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
(*.f64 (*.f64 re re) #s(literal -1/4 binary64))
#s(literal -1/4 binary64)
(*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 im #s(literal 4 binary64))
#s(literal 3 binary64)
(pow.f64 re #s(literal 6 binary64))
#s(literal 6 binary64)
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))
(/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
(/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))
(pow.f64 (log.f64 im) #s(literal 2 binary64))
#s(literal 2 binary64)
(pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
(/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
(fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))))
(/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))
(pow.f64 (log.f64 im) #s(literal 3 binary64))
(pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))
(+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64))
(*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))
(-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))
(*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
Outputs
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log im) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (* -1 (log im))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (* -1/2 (* (/ re im) (/ re im))) #s(hole binary64 (* -1/2 (/ (pow re 2) (pow im 2)))))
#s(approx (* (/ re im) (/ re im)) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx re #s(hole binary64 re))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 im)) (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 im)) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 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 (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ 1 im)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (pow im 3))) (/ 1 im))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 5))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* -5/16 (/ (pow re 2) (pow im 7))) (* 3/8 (/ 1 (pow im 5))))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (log im) (* (pow re 4) (log 10)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (log im) (* (pow re 4) (log 10)))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (/ (log im) (* (pow re 4) (log 10)))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (/ (log im) (* (pow re 2) (log 10)))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10))) (pow re 2))))
#s(approx (/ (log im) (* (* re re) (log 10))) #s(hole binary64 (/ (log im) (* (pow re 2) (log 10)))))
#s(approx (* (* re re) (log 10)) #s(hole binary64 (* (pow re 2) (log 10))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (pow re 4) #s(hole binary64 (pow re 4)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log im) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* (pow re 2) (- (* -1 (* (pow re 2) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log im) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (* (pow re 2) (- (* -1/8 (/ (pow (log 10) 2) (* (pow im 6) (* (pow (log 1/10) 3) (pow (log im) 2))))) (+ (* -1/2 (/ (* (log 10) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im)))) (* (pow im 2) (* (log 1/10) (log im))))) (+ (* -1/2 (/ (* (pow (log 10) 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* (pow im 2) (* (log 1/10) (pow (log im) 2))))) (* 1/4 (/ 1 (* (pow im 6) (* (log 1/10) (log im))))))))) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (pow (log im) 3) (pow (log 10) 3))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* (pow re 6) (- (* -3/16 (/ (pow re 2) (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* (pow re 6) (- (* (pow re 2) (- (* -3/32 (/ (pow re 2) (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ -1/8 (* (pow im 6) (pow (log 1/10) 3)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (- (* -3/16 (/ (pow re 2) (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (- (* (pow re 2) (- (* -3/32 (/ (pow re 2) (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (- (* -1/64 (/ (pow re 2) (* (pow im 12) (pow (log 10) 3)))) (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (/ -1/2 (* (pow im 2) (log 1/10)))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (- (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))
#s(approx (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (* (* re re) -1/4) #s(hole binary64 (* -1/4 (pow re 2))))
#s(approx (pow re 6) #s(hole binary64 (pow re 6)))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log im)) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (+ (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* 1/4 (/ (pow re 2) (* (pow im 6) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log im) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* (pow re 2) (- (* -1 (* (pow re 2) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log im) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (* (pow re 2) (- (* -1/8 (/ (pow (log 10) 2) (* (pow im 6) (* (pow (log 1/10) 3) (pow (log im) 2))))) (+ (* -1/2 (/ (* (log 10) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im)))) (* (pow im 2) (* (log 1/10) (log im))))) (+ (* -1/2 (/ (* (pow (log 10) 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* (pow im 2) (* (log 1/10) (pow (log im) 2))))) (* 1/4 (/ 1 (* (pow im 6) (* (log 1/10) (log im))))))))) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (/ (pow (log im) 3) (pow (log 10) 3))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* (pow re 6) (- (* -3/16 (/ (pow re 2) (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* (pow re 6) (- (* (pow re 2) (- (* -3/32 (/ (pow re 2) (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 4) (+ (* 1/4 (/ (pow re 2) (* (pow im 6) (* (log 1/10) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 4) (+ (* (pow re 2) (+ (* 1/16 (/ (pow re 2) (* (pow im 8) (pow (log 10) 2)))) (* 1/4 (/ 1 (* (pow im 6) (* (log 1/10) (log 10))))))) (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2))))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* (pow re 2) (- (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log im)) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* (pow re 2) (- (* 1/4 (/ (* (pow re 2) (log im)) (* (pow im 4) (pow (log 10) 2)))) (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/2 (/ (* (pow re 2) (log im)) (* (pow im 2) (* (log 1/10) (log 10)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 2) (+ (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 2) (log im)) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ 1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (* -1/2 (/ (pow re 2) (pow im 2)))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (* (pow re 2) (- (* -1 (/ (log im) (pow re 2))) (* 1/2 (/ 1 (pow im 2)))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (* (pow re 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 re)) (* -1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4))))))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ 1 re)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* (pow re 4) (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ -1/4 (* (pow im 4) (log 10)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (* (pow im 2) (log 10)))) (/ (log im) (* (pow re 2) (log 10)))) (pow re 2))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (* (pow im 2) (log 10)))) (/ (log im) (* (pow re 2) (log 10)))) (pow re 2))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (/ 1/2 (* (pow im 2) (log 10)))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (+ (* 1/2 (/ 1 (* (pow im 2) (log 10)))) (/ (log im) (* (pow re 2) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1 (* (pow re 4) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* (pow re 4) (- (* -3 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (* -4 (/ (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (pow re 4))) (+ (* -2 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* (pow re 4) (- (+ (* -3 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (* -2 (/ (* (pow im 2) (pow (log 10) 2)) (* (pow re 6) (pow (log 1/10) 3))))) (+ (* -8 (/ (* (pow im 6) (* (pow (log 10) 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (* (pow re 6) (log 1/10)))) (+ (* -4 (/ (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (pow re 4))) (+ (* -2 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (* -2 (/ (* (pow im 2) (log im)) (* (pow re 6) (log 1/10)))) (+ (* 4 (/ (* (pow im 2) (* (log 10) (- (* -3 (/ (log 10) (pow (log 1/10) 2))) (+ (* -4 (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))))) (* -2 (/ (log 10) (pow (log 1/10) 2))))))) (* (pow re 6) (log 1/10)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* -1/64 (/ (pow re 12) (* (pow im 12) (pow (log 10) 3))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* -1 (* (pow re 12) (+ (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))) (* 3/32 (/ 1 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2)))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* (pow re 12) (- (* -1 (/ (+ (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (pow re 2))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* (pow re 12) (- (* -1 (/ (+ (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (* (pow re 2) (pow (log 1/10) 3)))))) (pow re 4))) (+ (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))) (/ 3/32 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2))))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* -1/64 (/ (pow re 6) (* (pow im 12) (pow (log 10) 3))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* -1 (* (pow re 6) (+ (* 3/32 (/ 1 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2)))))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* (pow re 6) (- (* -1 (/ (+ (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (pow re 2))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* (pow re 6) (- (* -1 (/ (+ (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (* (pow re 2) (pow (log 1/10) 3)))))) (pow re 4))) (+ (/ 3/32 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2))))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (* -1 (* (pow re 2) (+ (* 1/4 (/ 1 (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* 1/16 (/ (pow re 8) (* (pow im 8) (pow (log 10) 2))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* (pow re 8) (+ (* 1/4 (/ 1 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10)))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* (pow re 8) (- (+ (/ 1/4 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10))))) (+ (* 1/4 (/ 1 (* (pow im 4) (* (pow re 4) (pow (log 1/10) 2))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2)))))) (* -1/4 (/ (log im) (* (pow im 4) (* (pow re 4) (pow (log 10) 2)))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* (pow re 8) (- (+ (* 1/2 (/ (log im) (* (pow im 2) (* (pow re 6) (* (log 1/10) (log 10)))))) (+ (/ 1/4 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10))))) (+ (* 1/4 (/ 1 (* (pow im 4) (* (pow re 4) (pow (log 1/10) 2))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2))))))) (* -1/4 (/ (log im) (* (pow im 4) (* (pow re 4) (pow (log 10) 2)))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1 (* (pow re 4) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* (pow re 4) (- (* -3 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (* -4 (/ (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (pow re 4))) (+ (* -2 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* (pow re 4) (- (+ (* -3 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (* -2 (/ (* (pow im 2) (pow (log 10) 2)) (* (pow re 6) (pow (log 1/10) 3))))) (+ (* -8 (/ (* (pow im 6) (* (pow (log 10) 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (* (pow re 6) (log 1/10)))) (+ (* -4 (/ (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (pow re 4))) (+ (* -2 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (* -2 (/ (* (pow im 2) (log im)) (* (pow re 6) (log 1/10)))) (+ (* 4 (/ (* (pow im 2) (* (log 10) (- (* -3 (/ (log 10) (pow (log 1/10) 2))) (+ (* -4 (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))))) (* -2 (/ (log 10) (pow (log 1/10) 2))))))) (* (pow re 6) (log 1/10)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (* -1/64 (/ (pow re 12) (* (pow im 12) (pow (log 10) 3))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (* -1 (* (pow re 12) (+ (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))) (* 3/32 (/ 1 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2)))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (* (pow re 12) (- (* -1 (/ (+ (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (pow re 2))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (* (pow re 12) (- (* -1 (/ (+ (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (* (pow re 2) (pow (log 1/10) 3)))))) (pow re 4))) (+ (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))) (/ 3/32 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2))))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* 1/16 (/ (pow re 8) (* (pow im 8) (pow (log 10) 2))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 8) (+ (* 1/4 (/ 1 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10)))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 8) (+ (/ 1/4 (* (pow im 4) (* (pow re 4) (pow (log 1/10) 2)))) (+ (/ 1/4 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2)))))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* -1 (* (pow re 4) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (* 1/4 (/ (* (pow re 4) (log im)) (* (pow im 4) (pow (log 10) 2))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ (log im) (* (pow im 2) (* (pow re 2) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (* (pow re 4) (- (/ (pow (log im) 2) (* (pow re 4) (pow (log 10) 2))) (+ (* -1/2 (/ (log im) (* (pow im 2) (* (pow re 2) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/4 (/ (* (pow re 4) (log im)) (* (pow im 4) (pow (log 10) 2))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (+ (* -1/2 (/ (log im) (* (pow im 2) (* (pow re 2) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ -1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (* (pow re 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ -1 re)) (* -1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ -1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ -1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4))))))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ -1 re)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re))))
#s(approx (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 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log re) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (/ (+ (* -1 (* (pow im 2) (log im))) (* -1/2 (pow re 2))) (pow im 2))))
#s(approx im #s(hole binary64 im))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 re)) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 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 (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (pow re 3))) (/ 1 re))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 5))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/16 (/ (pow im 2) (pow re 7))) (* 3/8 (/ 1 (pow re 5))))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* 1/2 (/ (* (pow im 2) (pow re 2)) (log 10)))) (pow im 4))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (+ (* 1/2 (/ (pow re 2) (log 10))) (/ (* (pow im 2) (log im)) (log 10))))) (pow im 4))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* 1/2 (/ (* (pow im 2) (pow re 2)) (log 10)))) (pow im 4))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (+ (* 1/2 (/ (pow re 2) (log 10))) (/ (* (pow im 2) (log im)) (log 10))))) (pow im 4))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (- (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (* 1/4 (/ 1 (log 10)))) (pow im 4))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (- (* (pow im 2) (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (* (pow im 2) (log im)) (* (pow re 4) (log 10))))) (* 1/4 (/ 1 (log 10)))) (pow im 4))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (* (pow im 2) (log im)) (* (pow re 4) (log 10)))) (pow im 2))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (* (pow im 2) (log im)) (* (pow re 4) (log 10)))) (pow im 2))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (log 10))) (/ (* (pow im 2) (log im)) (* (pow re 2) (log 10)))) (pow im 2))))
#s(approx (pow (* (* im im) (log 10)) -1) #s(hole binary64 (/ 1 (* (pow im 2) (log 10)))))
#s(approx (* (* im im) (log 10)) #s(hole binary64 (* (pow im 2) (log 10))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* (/ (pow im -4) (log 10)) 1/4) #s(hole binary64 (/ 1/4 (* (pow im 4) (log 10)))))
#s(approx (/ (pow im -4) (log 10)) #s(hole binary64 (/ 1 (* (pow im 4) (log 10)))))
#s(approx (pow im -4) #s(hole binary64 (/ 1 (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* (pow im 2) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10)))))))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (* (pow im 2) (- (* -2 (/ (pow (log 10) 2) (* (pow re 2) (pow (log 1/10) 3)))) (+ (* -2 (/ (log im) (* (pow re 2) (log 1/10)))) (+ (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10))))))) (* (pow re 2) (log 1/10)))) (* 16 (/ (* (pow (log 10) 2) (* (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow re 8)))))))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10)))))))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))))) (pow im 12))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (+ (* (pow im 2) (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))))) (pow im 12))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/8 (/ (* (pow im 2) (pow re 6)) (pow (log 1/10) 3))) (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))))) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))))) (pow im 12))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 6) (pow (log 10) 3))) (* (pow im 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))) (pow im 12))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 6) (pow (log 10) 3))) (* (pow im 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (+ (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* (pow im 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))))))) (pow im 12))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 6) (pow (log 10) 3))) (* (pow im 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (+ (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (log 1/10) 3))) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10))))))))))) (pow im 12))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (+ (* -1/2 (/ (pow im 2) (log 1/10))) (* -1/4 (/ (pow re 2) (log 10)))) (pow im 4))))
#s(approx (pow im -2) #s(hole binary64 (/ 1 (pow im 2))))
#s(approx (* (pow im 4) (log 10)) #s(hole binary64 (* (pow im 4) (log 10))))
#s(approx (pow im 4) #s(hole binary64 (pow im 4)))
#s(approx (pow (/ (log im) (log 10)) 3) #s(hole binary64 (/ (pow (log im) 3) (pow (log 10) 3))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* 1/4 (/ (* (pow im 2) (pow re 6)) (* (log 1/10) (log 10))))) (pow im 8))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* (pow im 2) (+ (* 1/4 (/ (pow re 6) (* (log 1/10) (log 10)))) (* (pow im 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))))))) (pow im 8))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* (pow im 2) (+ (* 1/4 (/ (pow re 6) (* (log 1/10) (log 10)))) (* (pow im 2) (- (+ (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/2 (/ (* (pow im 2) (* (pow re 2) (log im))) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))))))) (pow im 8))))
#s(approx (/ (pow (log im) 2) (pow (log 10) 2)) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (log im) 2)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* (pow im 2) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10)))))))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (* (pow im 2) (- (* -2 (/ (pow (log 10) 2) (* (pow re 2) (pow (log 1/10) 3)))) (+ (* -2 (/ (log im) (* (pow re 2) (log 1/10)))) (+ (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10))))))) (* (pow re 2) (log 1/10)))) (* 16 (/ (* (pow (log 10) 2) (* (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow re 8)))))))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10)))))))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))))) (pow im 12))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (+ (* (pow im 2) (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))))) (pow im 12))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/8 (/ (* (pow im 2) (pow re 6)) (pow (log 1/10) 3))) (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))))) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))))) (pow im 12))))
#s(approx (/ (pow (log im) 3) (pow (log 10) 3)) #s(hole binary64 (/ (pow (log im) 3) (pow (log 10) 3))))
#s(approx (pow (log im) 3) #s(hole binary64 (pow (log im) 3)))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* 1/4 (/ (* (pow im 2) (pow re 6)) (* (log 1/10) (log 10))))) (pow im 8))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* (pow im 2) (+ (* 1/4 (/ (* (pow im 2) (pow re 4)) (pow (log 1/10) 2))) (* 1/4 (/ (pow re 6) (* (log 1/10) (log 10))))))) (pow im 8))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow im 2) (pow re 2)) (log 1/10))) (* -1/4 (/ (pow re 4) (log 10)))) (pow im 4))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (- (* 1/2 (/ (* (pow im 2) (* (pow re 2) (log im))) (* (log 1/10) (log 10)))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (pow im 4))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (- (* (pow im 2) (- (/ (* (pow im 2) (pow (log im) 2)) (pow (log 10) 2)) (* -1/2 (/ (* (pow re 2) (log im)) (* (log 1/10) (log 10)))))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (pow im 4))))
#s(approx (pow (/ (log im) (log 10)) 2) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow im 2) (* (pow re 2) (log im))) (* (log 1/10) (log 10)))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (pow im 4))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (log (/ 1 im))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (* (pow im 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (pow im 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4))))))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10))))) (/ 1/4 (* (pow im 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10))))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 2) (log 10))))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (* (pow re 2) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))))
#s(approx (/ (log im) (* (* re re) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 2) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1 (/ (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (log (/ 1 im)))) (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (log (/ 1 im)))))) (pow im 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1/8 (/ (* (pow re 6) (pow (log 10) 2)) (* (pow im 6) (* (pow (log 1/10) 3) (pow (log (/ 1 im)) 2)))))) (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (* (pow im 4) (log (/ 1 im))))) (+ (* -1/2 (/ (* (pow re 2) (* (pow (log 10) 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2)))))) (* (pow im 6) (* (log 1/10) (pow (log (/ 1 im)) 2))))) (+ (* -1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log (/ 1 im)))))) (+ (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow im 4) (* (pow (log 1/10) 2) (log (/ 1 im)))))) (+ (* 1/2 (/ (* (pow re 2) (* (log 10) (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (log (/ 1 im)))) (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (log (/ 1 im)))))))) (* (pow im 6) (* (log 1/10) (log (/ 1 im)))))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (/ (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow im 10)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (- (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (* -1/16 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10)))))) (* 1/8 (/ 1 (pow (log 1/10) 3)))) (pow im 6))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (- (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2))))) (* -1/32 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2)))))))) (* 1/8 (/ 1 (pow (log 1/10) 3)))) (pow im 6))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (- (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2))))) (+ (* -1/32 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2))))) (* -1/64 (/ (pow re 6) (* (pow im 6) (pow (log 10) 3)))))))) (* 1/8 (/ 1 (pow (log 1/10) 3)))) (pow im 6))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (- (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (log 1/10)))) (pow im 2))))
#s(approx (pow (/ (log im) (log 10)) 3) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3)))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))) (+ (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 4) (pow (log 10) 2)))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10)))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log 10))))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2)))) (+ (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 4) (pow (log 10) 2)))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10)))))))))
#s(approx (/ (pow (log im) 2) (pow (log 10) 2)) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (log (/ 1 im)) 2)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1 (/ (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (log (/ 1 im)))) (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (log (/ 1 im)))))) (pow im 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1/8 (/ (* (pow re 6) (pow (log 10) 2)) (* (pow im 6) (* (pow (log 1/10) 3) (pow (log (/ 1 im)) 2)))))) (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (* (pow im 4) (log (/ 1 im))))) (+ (* -1/2 (/ (* (pow re 2) (* (pow (log 10) 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2)))))) (* (pow im 6) (* (log 1/10) (pow (log (/ 1 im)) 2))))) (+ (* -1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log (/ 1 im)))))) (+ (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow im 4) (* (pow (log 1/10) 2) (log (/ 1 im)))))) (+ (* 1/2 (/ (* (pow re 2) (* (log 10) (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (log (/ 1 im)))) (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (log (/ 1 im)))))))) (* (pow im 6) (* (log 1/10) (log (/ 1 im)))))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (/ (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow im 10)))))))
#s(approx (/ (pow (log im) 3) (pow (log 10) 3)) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3)))))
#s(approx (pow (log im) 3) #s(hole binary64 (* -1 (pow (log (/ 1 im)) 3))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (pow re 6) (* (pow im 2) (* (log 1/10) (log 10)))))) (pow im 4))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (* (pow im 4) (pow (log 10) 2)))) (+ (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (pow re 6) (* (pow im 2) (* (log 1/10) (log 10))))))) (pow im 4))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* -1/2 (/ (pow re 2) (log 1/10))) (* -1/4 (/ (pow re 4) (* (pow im 2) (log 10))))) (pow im 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (- (+ (* -1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 4) (pow (log 10) 2)))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10))))))))
#s(approx (pow (/ (log im) (log 10)) 2) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 2) (pow (log 10) 2)))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (log 1/10) (log 10))))) (pow im 2))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ -1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (* -1 (+ (log -1) (* -1 (log (/ -1 im)))))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (+ (log -1) (* -1 (log (/ -1 im)))))))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (* (pow im 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ -1 im)) (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ -1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ -1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (pow im 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4))))))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ -1 im)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log -1) (log 10)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* (pow re 4) (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (* (pow re 4) (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (* (pow re 4) (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10)))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))) (/ 1/4 (* (pow im 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* -1 (/ (log (/ -1 im)) (* (pow re 2) (log 10)))) (/ (log -1) (* (pow re 2) (log 10)))) (pow re 2))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 2) (log 10)))) (/ (log -1) (* (pow re 2) (log 10))))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 2) (log 10)))) (+ (* 1/2 (/ 1 (* (pow im 2) (log 10)))) (/ (log -1) (* (pow re 2) (log 10)))))))
#s(approx (/ (log im) (* (* re re) (log 10))) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (* (pow re 2) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log 10))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log -1) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im))))))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (+ (log -1) (* -1 (log (/ -1 im)))))) (pow im 4))) (/ (log -1) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/8 (/ (* (pow re 6) (pow (log 10) 2)) (* (pow im 6) (* (pow (log 1/10) 3) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))) (/ (log -1) (log 10)))) (+ (* -1/2 (/ (* (pow re 2) (* (log 10) (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im))))))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (+ (log -1) (* -1 (log (/ -1 im)))))))) (* (pow im 6) (* (log 1/10) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* -1/2 (/ (* (pow re 2) (* (pow (log 10) 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2)))))) (* (pow im 6) (* (log 1/10) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))) (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow im 4) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (* (pow im 4) (+ (log -1) (* -1 (log (/ -1 im))))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (+ (/ (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow im 10)) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3)))))))
#s(approx (pow (/ (log im) (log 10)) 3) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log 10))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))) (+ (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log 10))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2)))) (+ (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (/ (pow (log im) 2) (pow (log 10) 2)) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log 10))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log -1) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im))))))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (+ (log -1) (* -1 (log (/ -1 im)))))) (pow im 4))) (/ (log -1) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/8 (/ (* (pow re 6) (pow (log 10) 2)) (* (pow im 6) (* (pow (log 1/10) 3) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))) (/ (log -1) (log 10)))) (+ (* -1/2 (/ (* (pow re 2) (* (log 10) (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im))))))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (+ (log -1) (* -1 (log (/ -1 im)))))))) (* (pow im 6) (* (log 1/10) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* -1/2 (/ (* (pow re 2) (* (pow (log 10) 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2)))))) (* (pow im 6) (* (log 1/10) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))) (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow im 4) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (* (pow im 4) (+ (log -1) (* -1 (log (/ -1 im))))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (+ (/ (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow im 10)) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3)))))))
#s(approx (/ (pow (log im) 3) (pow (log 10) 3)) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))
#s(approx (pow (log im) 3) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3)))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (- (+ (* 1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 4) (pow (log 10) 2)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))) (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))))))
#s(approx (pow (/ (log im) (log 10)) 2) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (log 1/10) (log 10)))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (pow (log 10) 2))))) (pow im 2))))
Calls

6 calls:

TimeVariablePointExpression
54.0ms
re
@inf
((/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (* -1/2 (* (/ re im) (/ re im))) -1/2 (* (/ re im) (/ re im)) (/ re im) re im (log im) (log 1/10) 1/10 (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (log (/ 1 (sqrt (+ (* im im) (* re re))))) (/ 1 (sqrt (+ (* im im) (* re re)))) 1 (sqrt (+ (* im im) (* re re))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) 1/2 (pow (* (* im im) (log 10)) -1) (* (* im im) (log 10)) (* im im) (log 10) 10 -1 (/ (log im) (* (* re re) (log 10))) (* (* re re) (log 10)) (* re re) (* (/ (pow im -4) (log 10)) 1/4) (/ (pow im -4) (log 10)) (pow im -4) -4 1/4 (pow re 4) 4 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (/ -1/2 (log 1/10)) (pow im -2) -2 (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) (* (* re re) -1/4) -1/4 (* (pow im 4) (log 10)) (pow im 4) 3 (pow re 6) 6 (pow (/ (log im) (log 10)) 3) (/ (log im) (log 10)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)) (pow (log im) 2) 2 (pow (log 10) 2) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (/ (pow (log im) 3) (pow (log 10) 3)) (pow (log im) 3) (pow (log 10) 3) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))
53.0ms
im
@-inf
((/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (* -1/2 (* (/ re im) (/ re im))) -1/2 (* (/ re im) (/ re im)) (/ re im) re im (log im) (log 1/10) 1/10 (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (log (/ 1 (sqrt (+ (* im im) (* re re))))) (/ 1 (sqrt (+ (* im im) (* re re)))) 1 (sqrt (+ (* im im) (* re re))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) 1/2 (pow (* (* im im) (log 10)) -1) (* (* im im) (log 10)) (* im im) (log 10) 10 -1 (/ (log im) (* (* re re) (log 10))) (* (* re re) (log 10)) (* re re) (* (/ (pow im -4) (log 10)) 1/4) (/ (pow im -4) (log 10)) (pow im -4) -4 1/4 (pow re 4) 4 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (/ -1/2 (log 1/10)) (pow im -2) -2 (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) (* (* re re) -1/4) -1/4 (* (pow im 4) (log 10)) (pow im 4) 3 (pow re 6) 6 (pow (/ (log im) (log 10)) 3) (/ (log im) (log 10)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)) (pow (log im) 2) 2 (pow (log 10) 2) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (/ (pow (log im) 3) (pow (log 10) 3)) (pow (log im) 3) (pow (log 10) 3) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))
44.0ms
im
@0
((/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (* -1/2 (* (/ re im) (/ re im))) -1/2 (* (/ re im) (/ re im)) (/ re im) re im (log im) (log 1/10) 1/10 (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (log (/ 1 (sqrt (+ (* im im) (* re re))))) (/ 1 (sqrt (+ (* im im) (* re re)))) 1 (sqrt (+ (* im im) (* re re))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) 1/2 (pow (* (* im im) (log 10)) -1) (* (* im im) (log 10)) (* im im) (log 10) 10 -1 (/ (log im) (* (* re re) (log 10))) (* (* re re) (log 10)) (* re re) (* (/ (pow im -4) (log 10)) 1/4) (/ (pow im -4) (log 10)) (pow im -4) -4 1/4 (pow re 4) 4 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (/ -1/2 (log 1/10)) (pow im -2) -2 (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) (* (* re re) -1/4) -1/4 (* (pow im 4) (log 10)) (pow im 4) 3 (pow re 6) 6 (pow (/ (log im) (log 10)) 3) (/ (log im) (log 10)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)) (pow (log im) 2) 2 (pow (log 10) 2) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (/ (pow (log im) 3) (pow (log 10) 3)) (pow (log im) 3) (pow (log 10) 3) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))
42.0ms
re
@-inf
((/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (* -1/2 (* (/ re im) (/ re im))) -1/2 (* (/ re im) (/ re im)) (/ re im) re im (log im) (log 1/10) 1/10 (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (log (/ 1 (sqrt (+ (* im im) (* re re))))) (/ 1 (sqrt (+ (* im im) (* re re)))) 1 (sqrt (+ (* im im) (* re re))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) 1/2 (pow (* (* im im) (log 10)) -1) (* (* im im) (log 10)) (* im im) (log 10) 10 -1 (/ (log im) (* (* re re) (log 10))) (* (* re re) (log 10)) (* re re) (* (/ (pow im -4) (log 10)) 1/4) (/ (pow im -4) (log 10)) (pow im -4) -4 1/4 (pow re 4) 4 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (/ -1/2 (log 1/10)) (pow im -2) -2 (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) (* (* re re) -1/4) -1/4 (* (pow im 4) (log 10)) (pow im 4) 3 (pow re 6) 6 (pow (/ (log im) (log 10)) 3) (/ (log im) (log 10)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)) (pow (log im) 2) 2 (pow (log 10) 2) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (/ (pow (log im) 3) (pow (log 10) 3)) (pow (log im) 3) (pow (log 10) 3) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))
30.0ms
im
@inf
((/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) (neg (log (sqrt (+ (* im im) (* re re))))) (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (* -1/2 (* (/ re im) (/ re im))) -1/2 (* (/ re im) (/ re im)) (/ re im) re im (log im) (log 1/10) 1/10 (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (log (/ 1 (sqrt (+ (* im im) (* re re))))) (/ 1 (sqrt (+ (* im im) (* re re)))) 1 (sqrt (+ (* im im) (* re re))) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) 1/2 (pow (* (* im im) (log 10)) -1) (* (* im im) (log 10)) (* im im) (log 10) 10 -1 (/ (log im) (* (* re re) (log 10))) (* (* re re) (log 10)) (* re re) (* (/ (pow im -4) (log 10)) 1/4) (/ (pow im -4) (log 10)) (pow im -4) -4 1/4 (pow re 4) 4 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (/ -1/2 (log 1/10)) (pow im -2) -2 (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) (* (* re re) -1/4) -1/4 (* (pow im 4) (log 10)) (pow im 4) 3 (pow re 6) 6 (pow (/ (log im) (log 10)) 3) (/ (log im) (log 10)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)) (pow (log im) 2) 2 (pow (log 10) 2) (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (/ (pow (log im) 3) (pow (log 10) 3)) (pow (log im) 3) (pow (log 10) 3) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))

rewrite447.0ms (6.6%)

Memory
47.2MiB live, 450.8MiB allocated; 191ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0182830185
0194729659
0824228105
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
511 → 634
Calls
Call 1
Inputs
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))) (log.f64 #s(literal 1/10 binary64)))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im)))
(-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))
(*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)))
#s(literal -1/2 binary64)
(*.f64 (/.f64 re im) (/.f64 re im))
(/.f64 re im)
re
im
(log.f64 im)
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im)))
(/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))
#s(literal 1 binary64)
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64))))
(*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))
(-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
(/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))
(fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))
#s(literal 1/2 binary64)
(pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))
(*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))
(*.f64 im im)
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
#s(literal -1 binary64)
(/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))
(*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))
(*.f64 re re)
(*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))
(/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 im #s(literal -4 binary64))
#s(literal -4 binary64)
#s(literal 1/4 binary64)
(pow.f64 re #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
(fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
(pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64))
(fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))
(pow.f64 im #s(literal -2 binary64))
#s(literal -2 binary64)
(/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
(*.f64 (*.f64 re re) #s(literal -1/4 binary64))
#s(literal -1/4 binary64)
(*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 im #s(literal 4 binary64))
#s(literal 3 binary64)
(pow.f64 re #s(literal 6 binary64))
#s(literal 6 binary64)
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))
(/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
(/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))
(pow.f64 (log.f64 im) #s(literal 2 binary64))
#s(literal 2 binary64)
(pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
(/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
(fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))))
(/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))
(pow.f64 (log.f64 im) #s(literal 3 binary64))
(pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))
(+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64))
(*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))
(-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))
(*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log im) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log im) (log 1/10))) (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (pow im 6))) (* 1/4 (/ 1 (pow im 4))))) (* 1/2 (/ 1 (pow im 2))))) (log im))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (* -1 (log im))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (log im))))
#s(approx (* -1/2 (* (/ re im) (/ re im))) #s(hole binary64 (* -1/2 (/ (pow re 2) (pow im 2)))))
#s(approx (* (/ re im) (/ re im)) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx re #s(hole binary64 re))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* (pow re 2) (- (* 1/4 (/ (pow re 2) (* (pow im 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* -1/6 (/ (pow re 2) (* (pow im 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 im)) (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 im)) (* (pow re 2) (- (* 1/4 (/ (pow re 2) (pow im 4))) (* 1/2 (/ 1 (pow im 2))))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 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 (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ 1 im)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (pow im 3))) (/ 1 im))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 5))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* -5/16 (/ (pow re 2) (pow im 7))) (* 3/8 (/ 1 (pow im 5))))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow re 2) (+ (* (pow re 2) (- (* 1/6 (/ (pow re 2) (* (pow im 6) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (log im) (* (pow re 4) (log 10)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (+ (* (pow re 2) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (log im) (* (pow re 4) (log 10)))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (/ (log im) (* (pow re 4) (log 10)))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10))) (pow re 4))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (/ (log im) (* (pow re 2) (log 10)))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log im) (log 10))) (pow re 2))))
#s(approx (/ (log im) (* (* re re) (log 10))) #s(hole binary64 (/ (log im) (* (pow re 2) (log 10)))))
#s(approx (* (* re re) (log 10)) #s(hole binary64 (* (pow re 2) (log 10))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (pow re 4) #s(hole binary64 (pow re 4)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log im) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* (pow re 2) (- (* -1 (* (pow re 2) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log im) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (* (pow re 2) (- (* -1/8 (/ (pow (log 10) 2) (* (pow im 6) (* (pow (log 1/10) 3) (pow (log im) 2))))) (+ (* -1/2 (/ (* (log 10) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im)))) (* (pow im 2) (* (log 1/10) (log im))))) (+ (* -1/2 (/ (* (pow (log 10) 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* (pow im 2) (* (log 1/10) (pow (log im) 2))))) (* 1/4 (/ 1 (* (pow im 6) (* (log 1/10) (log im))))))))) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (pow (log im) 3) (pow (log 10) 3))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* (pow re 6) (- (* -3/16 (/ (pow re 2) (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* (pow re 6) (- (* (pow re 2) (- (* -3/32 (/ (pow re 2) (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ -1/8 (* (pow im 6) (pow (log 1/10) 3)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (- (* -3/16 (/ (pow re 2) (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (- (* (pow re 2) (- (* -3/32 (/ (pow re 2) (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (- (* (pow re 2) (- (* (pow re 2) (- (* -1/64 (/ (pow re 2) (* (pow im 12) (pow (log 10) 3)))) (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (/ -1/2 (* (pow im 2) (log 1/10)))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (- (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))))
#s(approx (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (* (* re re) -1/4) #s(hole binary64 (* -1/4 (pow re 2))))
#s(approx (pow re 6) #s(hole binary64 (pow re 6)))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log im)) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (+ (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* 1/4 (/ (pow re 2) (* (pow im 6) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log im) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* (pow re 2) (- (* -1 (* (pow re 2) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log im) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (- (* (pow re 2) (- (* -1/8 (/ (pow (log 10) 2) (* (pow im 6) (* (pow (log 1/10) 3) (pow (log im) 2))))) (+ (* -1/2 (/ (* (log 10) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im)))) (* (pow im 2) (* (log 1/10) (log im))))) (+ (* -1/2 (/ (* (pow (log 10) 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (* (pow im 2) (* (log 1/10) (pow (log im) 2))))) (* 1/4 (/ 1 (* (pow im 6) (* (log 1/10) (log im))))))))) (+ (* -1/4 (/ (log 10) (* (pow im 4) (* (pow (log 1/10) 2) (log im))))) (/ (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))) (log im))))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10)))))) (/ (log im) (log 10)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (/ (pow (log im) 3) (pow (log 10) 3))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* (pow re 6) (- (* -3/16 (/ (pow re 2) (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* (pow re 6) (- (* (pow re 2) (- (* -3/32 (/ (pow re 2) (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))))) (* 1/8 (/ 1 (* (pow im 6) (pow (log 1/10) 3)))))) (/ (pow (log im) 3) (pow (log 10) 3)))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 4) (+ (* 1/4 (/ (pow re 2) (* (pow im 6) (* (log 1/10) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 4) (+ (* (pow re 2) (+ (* 1/16 (/ (pow re 2) (* (pow im 8) (pow (log 10) 2)))) (* 1/4 (/ 1 (* (pow im 6) (* (log 1/10) (log 10))))))) (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2))))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* (pow re 2) (- (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 1/10))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (log im)) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* (pow re 2) (- (* 1/4 (/ (* (pow re 2) (log im)) (* (pow im 4) (pow (log 10) 2)))) (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))))) (/ (pow (log im) 2) (pow (log 10) 2)))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/2 (/ (* (pow re 2) (log im)) (* (pow im 2) (* (log 1/10) (log 10)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 2) (+ (* -1/2 (/ (log im) (* (pow im 2) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 2) (log im)) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ 1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ 1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ 1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (* -1/2 (/ (pow re 2) (pow im 2)))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (* (pow re 2) (- (* -1 (/ (log im) (pow re 2))) (* 1/2 (/ 1 (pow im 2)))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 re)) (log 1/10))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (* (pow re 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ 1 re)) (log 1/10)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 re))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 re)) (* -1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4))))))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ 1 re)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* (pow re 4) (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ -1/4 (* (pow im 4) (log 10)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log im) (* (pow re 4) (log 10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (* (pow im 2) (log 10)))) (/ (log im) (* (pow re 2) (log 10)))) (pow re 2))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10))))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (* (pow im 2) (log 10)))) (/ (log im) (* (pow re 2) (log 10)))) (pow re 2))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (/ 1/2 (* (pow im 2) (log 10)))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (+ (* 1/2 (/ 1 (* (pow im 2) (log 10)))) (/ (log im) (* (pow re 2) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1 (* (pow re 4) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* (pow re 4) (- (* -3 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (* -4 (/ (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (pow re 4))) (+ (* -2 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* (pow re 4) (- (+ (* -3 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (* -2 (/ (* (pow im 2) (pow (log 10) 2)) (* (pow re 6) (pow (log 1/10) 3))))) (+ (* -8 (/ (* (pow im 6) (* (pow (log 10) 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (* (pow re 6) (log 1/10)))) (+ (* -4 (/ (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (pow re 4))) (+ (* -2 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (* -2 (/ (* (pow im 2) (log im)) (* (pow re 6) (log 1/10)))) (+ (* 4 (/ (* (pow im 2) (* (log 10) (- (* -3 (/ (log 10) (pow (log 1/10) 2))) (+ (* -4 (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))))) (* -2 (/ (log 10) (pow (log 1/10) 2))))))) (* (pow re 6) (log 1/10)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* -1/64 (/ (pow re 12) (* (pow im 12) (pow (log 10) 3))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* -1 (* (pow re 12) (+ (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))) (* 3/32 (/ 1 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2)))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* (pow re 12) (- (* -1 (/ (+ (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (pow re 2))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* (pow re 12) (- (* -1 (/ (+ (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (* (pow re 2) (pow (log 1/10) 3)))))) (pow re 4))) (+ (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))) (/ 3/32 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2))))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* -1/64 (/ (pow re 6) (* (pow im 12) (pow (log 10) 3))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* -1 (* (pow re 6) (+ (* 3/32 (/ 1 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2)))))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* (pow re 6) (- (* -1 (/ (+ (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (pow re 2))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (* (pow re 6) (- (* -1 (/ (+ (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (* (pow re 2) (pow (log 1/10) 3)))))) (pow re 4))) (+ (/ 3/32 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2))))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (* -1/4 (/ (pow re 2) (* (pow im 4) (log 10))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (* -1 (* (pow re 2) (+ (* 1/4 (/ 1 (* (pow im 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* 1/16 (/ (pow re 8) (* (pow im 8) (pow (log 10) 2))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* (pow re 8) (+ (* 1/4 (/ 1 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10)))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* (pow re 8) (- (+ (/ 1/4 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10))))) (+ (* 1/4 (/ 1 (* (pow im 4) (* (pow re 4) (pow (log 1/10) 2))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2)))))) (* -1/4 (/ (log im) (* (pow im 4) (* (pow re 4) (pow (log 10) 2)))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (* (pow re 8) (- (+ (* 1/2 (/ (log im) (* (pow im 2) (* (pow re 6) (* (log 1/10) (log 10)))))) (+ (/ 1/4 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10))))) (+ (* 1/4 (/ 1 (* (pow im 4) (* (pow re 4) (pow (log 1/10) 2))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2))))))) (* -1/4 (/ (log im) (* (pow im 4) (* (pow re 4) (pow (log 10) 2)))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1 (* (pow re 4) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* (pow re 4) (- (* -3 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (* -4 (/ (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (pow re 4))) (+ (* -2 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* (pow re 4) (- (+ (* -3 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (* -2 (/ (* (pow im 2) (pow (log 10) 2)) (* (pow re 6) (pow (log 1/10) 3))))) (+ (* -8 (/ (* (pow im 6) (* (pow (log 10) 2) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (* (pow re 6) (log 1/10)))) (+ (* -4 (/ (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))) (pow re 4))) (+ (* -2 (/ (log 10) (* (pow re 4) (pow (log 1/10) 2)))) (+ (* -2 (/ (* (pow im 2) (log im)) (* (pow re 6) (log 1/10)))) (+ (* 4 (/ (* (pow im 2) (* (log 10) (- (* -3 (/ (log 10) (pow (log 1/10) 2))) (+ (* -4 (* (pow im 4) (* (log 10) (- (* 1/4 (/ 1 (* (pow im 4) (pow (log 1/10) 2)))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))))) (* -2 (/ (log 10) (pow (log 1/10) 2))))))) (* (pow re 6) (log 1/10)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 1/10)))) (* 1/4 (/ 1 (* (pow im 4) (log 10))))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (* -1/64 (/ (pow re 12) (* (pow im 12) (pow (log 10) 3))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (* -1 (* (pow re 12) (+ (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))) (* 3/32 (/ 1 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2)))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (* (pow re 12) (- (* -1 (/ (+ (* 3/32 (/ 1 (* (pow im 10) (* (log 1/10) (pow (log 10) 2))))) (* 3/16 (/ 1 (* (pow im 8) (* (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (pow re 2))) (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (* (pow re 12) (- (* -1 (/ (+ (* 3/16 (/ 1 (* (pow im 8) (* (pow (log 1/10) 2) (log 10))))) (* 1/8 (/ 1 (* (pow im 6) (* (pow re 2) (pow (log 1/10) 3)))))) (pow re 4))) (+ (* 1/64 (/ 1 (* (pow im 12) (pow (log 10) 3)))) (/ 3/32 (* (pow im 10) (* (pow re 2) (* (log 1/10) (pow (log 10) 2))))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* 1/16 (/ (pow re 8) (* (pow im 8) (pow (log 10) 2))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 8) (+ (* 1/4 (/ 1 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10)))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (* (pow re 8) (+ (/ 1/4 (* (pow im 4) (* (pow re 4) (pow (log 1/10) 2)))) (+ (/ 1/4 (* (pow im 6) (* (pow re 2) (* (log 1/10) (log 10))))) (* 1/16 (/ 1 (* (pow im 8) (pow (log 10) 2)))))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (* -1 (* (pow re 4) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 1/10))))) (* 1/4 (/ 1 (* (pow im 4) (log 10)))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (* 1/4 (/ (* (pow re 4) (log im)) (* (pow im 4) (pow (log 10) 2))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (* (pow re 4) (- (* 1/2 (/ (log im) (* (pow im 2) (* (pow re 2) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (* (pow re 4) (- (/ (pow (log im) 2) (* (pow re 4) (pow (log 10) 2))) (+ (* -1/2 (/ (log im) (* (pow im 2) (* (pow re 2) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2)))))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/4 (/ (* (pow re 4) (log im)) (* (pow im 4) (pow (log 10) 2))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* (pow re 4) (+ (* -1/2 (/ (log im) (* (pow im 2) (* (pow re 2) (* (log 1/10) (log 10)))))) (* -1/4 (/ (log im) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 1/10)))) (+ (* 1/4 (/ (pow im 4) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (* -1 (log (/ -1 re))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* -1 (log (/ -1 re))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (pow re 6))) (+ (* -1 (log (/ -1 re))) (+ (* -1/4 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 re)) (log 1/10))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (* (pow re 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (* (pow re 4) (log 1/10)))) (/ (log (/ -1 re)) (log 1/10)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 re))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ -1 re)) (* -1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ -1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ -1 re)) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6))) (+ (* -180 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (* -30 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow im 4)) (* 1/4 (pow im 4)))) (* -3 (pow im 4))) (pow re 4))))))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ -1 re)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re))))
#s(approx (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 10)) #s(hole binary64 (* -1 (/ (log (/ -1 re)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 re)) (log 10))) (+ (* -1/4 (/ (pow im 4) (* (pow re 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow im 6)) (* 90 (pow im 6))) (* (pow re 6) (log 10)))) (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (* -1 (/ (log re) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* -1/2 (/ (pow im 2) (* (pow re 2) (log 1/10)))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1 (/ (log re) (log 1/10))) (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (* -1 (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow im 2) (pow re 2))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (pow re 6))) (* 1/4 (/ 1 (pow re 4))))) (* 1/2 (/ 1 (pow re 2))))) (log re))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (/ (+ (* -1 (* (pow im 2) (log im))) (* -1/2 (pow re 2))) (pow im 2))))
#s(approx im #s(hole binary64 im))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* (pow im 2) (- (* 1/4 (/ (pow im 2) (* (pow re 4) (log 1/10)))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* -1/6 (/ (pow im 2) (* (pow re 6) (log 1/10)))) (* 1/4 (/ 1 (* (pow re 4) (log 1/10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 1/10)))))) (/ (log (/ 1 re)) (log 1/10)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 re)) (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 4))) (* 1/2 (/ 1 (pow re 2))))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 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 (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (pow re 3))) (/ 1 re))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 5))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/16 (/ (pow im 2) (pow re 7))) (* 3/8 (/ 1 (pow re 5))))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (/ (log re) (log 10))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/6 (/ (pow im 2) (* (pow re 6) (log 10)))) (* 1/4 (/ 1 (* (pow re 4) (log 10)))))) (* 1/2 (/ 1 (* (pow re 2) (log 10)))))) (/ (log re) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* 1/2 (/ (* (pow im 2) (pow re 2)) (log 10)))) (pow im 4))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (+ (* 1/2 (/ (pow re 2) (log 10))) (/ (* (pow im 2) (log im)) (log 10))))) (pow im 4))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* 1/2 (/ (* (pow im 2) (pow re 2)) (log 10)))) (pow im 4))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (+ (* 1/2 (/ (pow re 2) (log 10))) (/ (* (pow im 2) (log im)) (log 10))))) (pow im 4))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (- (* 1/2 (/ (pow im 2) (* (pow re 2) (log 10)))) (* 1/4 (/ 1 (log 10)))) (pow im 4))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (/ (- (* (pow im 2) (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (* (pow im 2) (log im)) (* (pow re 4) (log 10))))) (* 1/4 (/ 1 (log 10)))) (pow im 4))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (* (pow im 2) (log im)) (* (pow re 4) (log 10)))) (pow im 2))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (* (pow re 2) (log 10)))) (/ (* (pow im 2) (log im)) (* (pow re 4) (log 10)))) (pow im 2))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (/ (+ (* 1/2 (/ 1 (log 10))) (/ (* (pow im 2) (log im)) (* (pow re 2) (log 10)))) (pow im 2))))
#s(approx (pow (* (* im im) (log 10)) -1) #s(hole binary64 (/ 1 (* (pow im 2) (log 10)))))
#s(approx (* (* im im) (log 10)) #s(hole binary64 (* (pow im 2) (log 10))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* (/ (pow im -4) (log 10)) 1/4) #s(hole binary64 (/ 1/4 (* (pow im 4) (log 10)))))
#s(approx (/ (pow im -4) (log 10)) #s(hole binary64 (/ 1 (* (pow im 4) (log 10)))))
#s(approx (pow im -4) #s(hole binary64 (/ 1 (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* (pow im 2) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10)))))))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (* (pow im 2) (- (* -2 (/ (pow (log 10) 2) (* (pow re 2) (pow (log 1/10) 3)))) (+ (* -2 (/ (log im) (* (pow re 2) (log 1/10)))) (+ (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10))))))) (* (pow re 2) (log 1/10)))) (* 16 (/ (* (pow (log 10) 2) (* (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow re 8)))))))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10)))))))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))))) (pow im 12))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (+ (* (pow im 2) (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))))) (pow im 12))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/8 (/ (* (pow im 2) (pow re 6)) (pow (log 1/10) 3))) (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))))) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))))) (pow im 12))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 6) (pow (log 10) 3))) (* (pow im 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))) (pow im 12))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 6) (pow (log 10) 3))) (* (pow im 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (+ (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* (pow im 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))))))) (pow im 12))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 6) (pow (log 10) 3))) (* (pow im 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (+ (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (log 1/10) 3))) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10))))))))))) (pow im 12))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (+ (* -1/2 (/ (pow im 2) (log 1/10))) (* -1/4 (/ (pow re 2) (log 10)))) (pow im 4))))
#s(approx (pow im -2) #s(hole binary64 (/ 1 (pow im 2))))
#s(approx (* (pow im 4) (log 10)) #s(hole binary64 (* (pow im 4) (log 10))))
#s(approx (pow im 4) #s(hole binary64 (pow im 4)))
#s(approx (pow (/ (log im) (log 10)) 3) #s(hole binary64 (/ (pow (log im) 3) (pow (log 10) 3))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (/ (log im) (log 10))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* 1/4 (/ (* (pow im 2) (pow re 6)) (* (log 1/10) (log 10))))) (pow im 8))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* (pow im 2) (+ (* 1/4 (/ (pow re 6) (* (log 1/10) (log 10)))) (* (pow im 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))))))) (pow im 8))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* (pow im 2) (+ (* 1/4 (/ (pow re 6) (* (log 1/10) (log 10)))) (* (pow im 2) (- (+ (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/2 (/ (* (pow im 2) (* (pow re 2) (log im))) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))))))) (pow im 8))))
#s(approx (/ (pow (log im) 2) (pow (log 10) 2)) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (log im) 2)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* (pow im 2) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10)))))))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (* -1/4 (/ (pow re 4) (log 10))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* (pow im 2) (- (+ (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (* (pow im 2) (- (* -2 (/ (pow (log 10) 2) (* (pow re 2) (pow (log 1/10) 3)))) (+ (* -2 (/ (log im) (* (pow re 2) (log 1/10)))) (+ (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow re 2))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10))))))) (* (pow re 2) (log 1/10)))) (* 16 (/ (* (pow (log 10) 2) (* (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow re 8)))))))) (+ (* -4 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2))))) (pow re 4))) (* 4 (/ (* (log 10) (- (* 16 (/ (* (pow (log 10) 2) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow re 2))) (* -1 (/ (pow re 2) (log 1/10))))) (* (pow re 2) (log 1/10)))))))) (* -1 (/ (pow re 2) (log 1/10)))))) (pow im 4))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))))) (pow im 12))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (+ (* (pow im 2) (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10))))))) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))))) (pow im 12))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (/ (+ (* -1/64 (/ (pow re 12) (pow (log 10) 3))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/8 (/ (* (pow im 2) (pow re 6)) (pow (log 1/10) 3))) (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))))) (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2))))))))) (pow im 12))))
#s(approx (/ (pow (log im) 3) (pow (log 10) 3)) #s(hole binary64 (/ (pow (log im) 3) (pow (log 10) 3))))
#s(approx (pow (log im) 3) #s(hole binary64 (pow (log im) 3)))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* 1/4 (/ (* (pow im 2) (pow re 6)) (* (log 1/10) (log 10))))) (pow im 8))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (pow (log 10) 2))) (* (pow im 2) (+ (* 1/4 (/ (* (pow im 2) (pow re 4)) (pow (log 1/10) 2))) (* 1/4 (/ (pow re 6) (* (log 1/10) (log 10))))))) (pow im 8))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow im 2) (pow re 2)) (log 1/10))) (* -1/4 (/ (pow re 4) (log 10)))) (pow im 4))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (- (* 1/2 (/ (* (pow im 2) (* (pow re 2) (log im))) (* (log 1/10) (log 10)))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (pow im 4))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (- (* (pow im 2) (- (/ (* (pow im 2) (pow (log im) 2)) (pow (log 10) 2)) (* -1/2 (/ (* (pow re 2) (log im)) (* (log 1/10) (log 10)))))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (pow im 4))))
#s(approx (pow (/ (log im) (log 10)) 2) #s(hole binary64 (/ (pow (log im) 2) (pow (log 10) 2))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow im 2) (* (pow re 2) (log im))) (* (log 1/10) (log 10)))) (* -1/4 (/ (* (pow re 4) (log im)) (pow (log 10) 2)))) (pow im 4))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ 1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ 1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ 1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ 1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (log (/ 1 im))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ 1 im))))))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (* (pow im 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ 1 im)) (log 1/10)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ 1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (pow im 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4))))))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10))))) (/ 1/4 (* (pow im 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10))))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (* (pow re 4) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 2) (log 10))))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (* (pow re 2) (log 10)))) (* 1/2 (/ 1 (* (pow im 2) (log 10)))))))
#s(approx (/ (log im) (* (* re re) (log 10))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (* (pow re 2) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1 (/ (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (log (/ 1 im)))) (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (log (/ 1 im)))))) (pow im 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1/8 (/ (* (pow re 6) (pow (log 10) 2)) (* (pow im 6) (* (pow (log 1/10) 3) (pow (log (/ 1 im)) 2)))))) (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (* (pow im 4) (log (/ 1 im))))) (+ (* -1/2 (/ (* (pow re 2) (* (pow (log 10) 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2)))))) (* (pow im 6) (* (log 1/10) (pow (log (/ 1 im)) 2))))) (+ (* -1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log (/ 1 im)))))) (+ (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow im 4) (* (pow (log 1/10) 2) (log (/ 1 im)))))) (+ (* 1/2 (/ (* (pow re 2) (* (log 10) (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (log (/ 1 im)))) (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (log (/ 1 im)))))))) (* (pow im 6) (* (log 1/10) (log (/ 1 im)))))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (/ (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow im 10)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (- (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (* -1/16 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10)))))) (* 1/8 (/ 1 (pow (log 1/10) 3)))) (pow im 6))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (- (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2))))) (* -1/32 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2)))))))) (* 1/8 (/ 1 (pow (log 1/10) 3)))) (pow im 6))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) #s(hole binary64 (/ (- (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 2) (* (pow im 2) (* (pow (log 1/10) 2) (log 10))))) (+ (* -1/16 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2))))) (+ (* -1/32 (/ (pow re 4) (* (pow im 4) (* (log 1/10) (pow (log 10) 2))))) (* -1/64 (/ (pow re 6) (* (pow im 6) (pow (log 10) 3)))))))) (* 1/8 (/ 1 (pow (log 1/10) 3)))) (pow im 6))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) #s(hole binary64 (/ (- (* -1/4 (/ (pow re 2) (* (pow im 2) (log 10)))) (* 1/2 (/ 1 (log 1/10)))) (pow im 2))))
#s(approx (pow (/ (log im) (log 10)) 3) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3)))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))) (+ (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 4) (pow (log 10) 2)))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10)))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log 10))))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2)))) (+ (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 4) (pow (log 10) 2)))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10)))))))))
#s(approx (/ (pow (log im) 2) (pow (log 10) 2)) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (log (/ 1 im)) 2)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (* -1 (/ (log (/ 1 im)) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1 (/ (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (log (/ 1 im)))) (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (log (/ 1 im)))))) (pow im 4)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ 1 im)) (log 10))) (* -1/8 (/ (* (pow re 6) (pow (log 10) 2)) (* (pow im 6) (* (pow (log 1/10) 3) (pow (log (/ 1 im)) 2)))))) (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (* (pow im 4) (log (/ 1 im))))) (+ (* -1/2 (/ (* (pow re 2) (* (pow (log 10) 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2)))))) (* (pow im 6) (* (log 1/10) (pow (log (/ 1 im)) 2))))) (+ (* -1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log (/ 1 im)))))) (+ (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow im 4) (* (pow (log 1/10) 2) (log (/ 1 im)))))) (+ (* 1/2 (/ (* (pow re 2) (* (log 10) (+ (* -1 (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (pow (log 10) 2))))) (log (/ 1 im)))) (* 1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (log (/ 1 im)))))))) (* (pow im 6) (* (log 1/10) (log (/ 1 im)))))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3))) (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (/ (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow im 10)))))))
#s(approx (/ (pow (log im) 3) (pow (log 10) 3)) #s(hole binary64 (* -1 (/ (pow (log (/ 1 im)) 3) (pow (log 10) 3)))))
#s(approx (pow (log im) 3) #s(hole binary64 (* -1 (pow (log (/ 1 im)) 3))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (pow re 6) (* (pow im 2) (* (log 1/10) (log 10)))))) (pow im 4))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) #s(hole binary64 (/ (+ (* 1/16 (/ (pow re 8) (* (pow im 4) (pow (log 10) 2)))) (+ (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* 1/4 (/ (pow re 6) (* (pow im 2) (* (log 1/10) (log 10))))))) (pow im 4))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* -1/2 (/ (pow re 2) (log 1/10))) (* -1/4 (/ (pow re 4) (* (pow im 2) (log 10))))) (pow im 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (- (+ (* -1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 4) (pow (log 10) 2)))) (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10))))))))
#s(approx (pow (/ (log im) (log 10)) 2) #s(hole binary64 (/ (pow (log (/ 1 im)) 2) (pow (log 10) 2))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (pow im 2) (* (log 1/10) (log 10)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow re 4) (log (/ 1 im))) (* (pow im 2) (pow (log 10) 2)))) (* 1/2 (/ (* (pow re 2) (log (/ 1 im))) (* (log 1/10) (log 10))))) (pow im 2))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (neg (log (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 1/10)))) (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (* -1 (log (/ -1 im))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* 1/4 (/ (pow re 4) (pow im 4))) (+ (* -1 (log (/ -1 im))) (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (- (* -1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (pow im 6))) (+ (* -1 (log (/ -1 im))) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (* -1 (+ (log -1) (* -1 (log (/ -1 im)))))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) #s(hole binary64 (- (* -1/2 (/ (pow re 2) (pow im 2))) (+ (log -1) (* -1 (log (/ -1 im)))))))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (/ (log (/ -1 im)) (log 1/10))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (* (pow im 6) (log 1/10)))) (+ (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (* (pow im 4) (log 1/10)))) (/ (log (/ -1 im)) (log 1/10)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (log (/ -1 im))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ -1 im)) (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ -1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) #s(hole binary64 (+ (log (/ -1 im)) (+ (* -1/2 (/ (pow re 2) (pow im 2))) (+ (* 1/720 (/ (+ (* -360 (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6))) (+ (* -180 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (* -30 (pow re 6)))) (pow im 6))) (* 1/24 (/ (+ (* -12 (+ (* -1 (pow re 4)) (* 1/4 (pow re 4)))) (* -3 (pow re 4))) (pow im 4))))))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ -1 im)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (* -1 (/ (log (/ -1 im)) (log 10)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/720 (/ (+ (* 30 (pow re 6)) (* 90 (pow re 6))) (* (pow im 6) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (/ (log -1) (log 10)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log -1) (log 10))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (/ (log -1) (log 10)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (* (pow re 4) (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (* (pow re 4) (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) #s(hole binary64 (+ (* -1/4 (/ (pow re 4) (* (pow im 4) (log 10)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 10)))) (* (pow re 4) (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10)))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (/ 1/2 (* (pow im 2) (* (pow re 2) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))) (/ 1/4 (* (pow im 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (/ (log -1) (* (pow re 4) (log 10))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (/ (+ (* -1 (/ (log (/ -1 im)) (* (pow re 2) (log 10)))) (/ (log -1) (* (pow re 2) (log 10)))) (pow re 2))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 4) (log 10)))) (+ (* 1/2 (/ 1 (* (pow im 2) (* (pow re 2) (log 10))))) (/ (log -1) (* (pow re 4) (log 10)))))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 2) (log 10)))) (/ (log -1) (* (pow re 2) (log 10))))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (* (pow re 2) (log 10)))) (+ (* 1/2 (/ 1 (* (pow im 2) (log 10)))) (/ (log -1) (* (pow re 2) (log 10)))))))
#s(approx (/ (log im) (* (* re re) (log 10))) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (* (pow re 2) (log 10)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log 10))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log -1) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im))))))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (+ (log -1) (* -1 (log (/ -1 im)))))) (pow im 4))) (/ (log -1) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/8 (/ (* (pow re 6) (pow (log 10) 2)) (* (pow im 6) (* (pow (log 1/10) 3) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))) (/ (log -1) (log 10)))) (+ (* -1/2 (/ (* (pow re 2) (* (log 10) (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im))))))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (+ (log -1) (* -1 (log (/ -1 im)))))))) (* (pow im 6) (* (log 1/10) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* -1/2 (/ (* (pow re 2) (* (pow (log 10) 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2)))))) (* (pow im 6) (* (log 1/10) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))) (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow im 4) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (* (pow im 4) (+ (log -1) (* -1 (log (/ -1 im))))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (+ (/ (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow im 10)) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3)))))))
#s(approx (pow (/ (log im) (log 10)) 3) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))
#s(approx (/ (log im) (log 10)) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log 10))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))) (+ (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) #s(hole binary64 (- (+ (* 1/4 (/ (pow re 4) (* (pow im 4) (pow (log 1/10) 2)))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (log 10))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2)))) (+ (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 4) (pow (log 10) 2))))))))
#s(approx (/ (pow (log im) 2) (pow (log 10) 2)) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (pow (log im) 2) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (/ (+ (log -1) (* -1 (log (/ -1 im)))) (log 10))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (log -1) (log 10))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im))))))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (+ (log -1) (* -1 (log (/ -1 im)))))) (pow im 4))) (/ (log -1) (log 10)))) (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) #s(hole binary64 (- (+ (* -1 (/ (log (/ -1 im)) (log 10))) (+ (* -1/8 (/ (* (pow re 6) (pow (log 10) 2)) (* (pow im 6) (* (pow (log 1/10) 3) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))) (/ (log -1) (log 10)))) (+ (* -1/2 (/ (* (pow re 2) (* (log 10) (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im))))))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (+ (log -1) (* -1 (log (/ -1 im)))))))) (* (pow im 6) (* (log 1/10) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* -1/2 (/ (* (pow re 2) (* (pow (log 10) 2) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2)))))) (* (pow im 6) (* (log 1/10) (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2))))) (+ (* -1/4 (/ (* (pow re 4) (log 10)) (* (pow im 4) (* (pow (log 1/10) 2) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* 1/4 (/ (pow re 6) (* (pow im 6) (* (log 1/10) (+ (log -1) (* -1 (log (/ -1 im)))))))) (+ (* 1/2 (/ (pow re 2) (* (pow im 2) (log 1/10)))) (/ (* (log 10) (- (* 1/4 (/ (pow re 4) (pow (log 1/10) 2))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (pow (log 10) 2))))) (* (pow im 4) (+ (log -1) (* -1 (log (/ -1 im))))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) #s(hole binary64 (+ (* -1/8 (/ (pow re 6) (* (pow im 6) (pow (log 1/10) 3)))) (+ (/ (* (pow re 6) (+ (* -1/8 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))) (* -1/16 (/ (pow re 2) (* (pow (log 1/10) 2) (log 10)))))) (pow im 8)) (+ (/ (* (pow re 6) (+ (* -1/16 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))) (* -1/32 (/ (pow re 4) (* (log 1/10) (pow (log 10) 2)))))) (pow im 10)) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3)))))))
#s(approx (/ (pow (log im) 3) (pow (log 10) 3)) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3) (pow (log 10) 3))))
#s(approx (pow (log im) 3) #s(hole binary64 (pow (+ (log -1) (* -1 (log (/ -1 im)))) 3)))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) #s(hole binary64 (- (+ (* 1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 4) (pow (log 10) 2)))) (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))) (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10))))))))
#s(approx (pow (/ (log im) (log 10)) 2) #s(hole binary64 (/ (pow (+ (log -1) (* -1 (log (/ -1 im)))) 2) (pow (log 10) 2))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (* (log 1/10) (log 10)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow re 2) (+ (log -1) (* -1 (log (/ -1 im))))) (* (log 1/10) (log 10)))) (* -1/4 (/ (* (pow re 4) (+ (log -1) (* -1 (log (/ -1 im))))) (* (pow im 2) (pow (log 10) 2))))) (pow im 2))))
Outputs
(/.f64 (neg.f64 #s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (log.f64 im)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 #s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (log.f64 im))) (log.f64 #s(literal 1/10 binary64)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (log.f64 im)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))) (pow.f64 (log.f64 im) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (log.f64 im)))
(/.f64 (-.f64 (pow.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (log.f64 im) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (fma.f64 (log.f64 im) (log.f64 im) (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (log.f64 im)))))
(-.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (log.f64 im))
(*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))
#s(literal -1/2 binary64)
(*.f64 (neg.f64 (/.f64 re im)) (neg.f64 (/.f64 re im)))
(*.f64 (fabs.f64 (/.f64 re im)) (fabs.f64 (/.f64 re im)))
(*.f64 (/.f64 re im) (/.f64 re im))
(pow.f64 (/.f64 re im) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 re re)) (neg.f64 (*.f64 im im)))
(/.f64 (*.f64 re re) (*.f64 im im))
(/.f64 (neg.f64 re) (neg.f64 im))
(/.f64 re im)
re
im
(log.f64 im)
(log.f64 #s(literal 1/10 binary64))
#s(literal 1/10 binary64)
(/.f64 (neg.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)))
(-.f64 #s(literal 0 binary64) (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)))
(log.f64 (pow.f64 #s(approx (sqrt (+ (* im im) (* re re))) im) #s(literal -1 binary64)))
(pow.f64 #s(approx (sqrt (+ (* im im) (* re re))) im) #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)))
(/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))
#s(literal 1 binary64)
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64))))
(*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))
(/.f64 (-.f64 (*.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))) (*.f64 (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)))) (+.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))))
(/.f64 (-.f64 (pow.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)) #s(literal 3 binary64))) (fma.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)) (*.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))))))
(-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64)))
(+.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (neg.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal 1/4 binary64)))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))) (neg.f64 (*.f64 re re)))
(/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))
(+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (*.f64 re re)) (/.f64 (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (*.f64 re re)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))))) (*.f64 (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (-.f64 (*.f64 (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))
#s(literal 1/2 binary64)
(*.f64 (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1/2 binary64)) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))
(pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))
(/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))
(exp.f64 (*.f64 (log.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))
(*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))
(log.f64 (pow.f64 #s(literal 10 binary64) (*.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)))
(log.f64 #s(literal 10 binary64))
#s(literal 10 binary64)
#s(literal -1 binary64)
(/.f64 (neg.f64 (log.f64 im)) (neg.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))
(/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))
(*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))
(log.f64 (pow.f64 #s(literal 10 binary64) (*.f64 re re)))
(*.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 re #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))
(/.f64 (neg.f64 (pow.f64 im #s(literal -4 binary64))) (neg.f64 (log.f64 #s(literal 10 binary64))))
(/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64)))
(*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 im #s(literal -2 binary64)))
(pow.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1 binary64))
(pow.f64 im #s(literal -4 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 im #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 4 binary64)))
(exp.f64 (*.f64 (log.f64 im) #s(literal -4 binary64)))
#s(literal -4 binary64)
#s(literal 1/4 binary64)
(*.f64 (*.f64 re re) (*.f64 re re))
(pow.f64 re #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 4 binary64)))
#s(literal 4 binary64)
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))) (neg.f64 #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (/.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)))) (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))) (-.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (-.f64 (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (*.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))))
(fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
(+.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
(*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3/2 binary64)) (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3/2 binary64)))
(*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64)))))) (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))))
(*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64)))))))
(pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64)))))) #s(literal 3 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)))) (*.f64 (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64)))) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64)))))) (-.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64)))) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))))))
(fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64)))))
(+.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64))) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64)))))
(/.f64 #s(literal 1/2 binary64) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))
(*.f64 (pow.f64 im #s(literal -1 binary64)) (pow.f64 im #s(literal -1 binary64)))
(pow.f64 (*.f64 im im) #s(literal -1 binary64))
(pow.f64 im #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 im im)))
(/.f64 #s(literal 1 binary64) (*.f64 im im))
(exp.f64 (*.f64 (log.f64 im) #s(literal -2 binary64)))
#s(literal -2 binary64)
(*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64))) (neg.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
(/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
(*.f64 (*.f64 re re) #s(literal -1/4 binary64))
#s(literal -1/4 binary64)
(*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))
(log.f64 (pow.f64 #s(literal 10 binary64) (pow.f64 im #s(literal 4 binary64))))
(*.f64 (*.f64 im im) (*.f64 im im))
(pow.f64 im #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 4 binary64)))
#s(literal 3 binary64)
(*.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))
(pow.f64 re #s(literal 6 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 6 binary64)))
#s(literal 6 binary64)
(*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3/2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
(*.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)))
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))
(/.f64 (neg.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64))) (neg.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))))
(/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64)))
(/.f64 (neg.f64 (log.f64 im)) (neg.f64 (log.f64 #s(literal 10 binary64))))
(/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64))) (neg.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
(/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))
(*.f64 (pow.f64 (log.f64 im) #s(literal 1 binary64)) (pow.f64 (log.f64 im) #s(literal 1 binary64)))
(*.f64 (log.f64 im) (log.f64 im))
(pow.f64 (log.f64 im) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (log.f64 im)) #s(literal 2 binary64)))
#s(literal 2 binary64)
(*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 1 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 1 binary64)))
(*.f64 (log.f64 #s(literal 10 binary64)) (log.f64 #s(literal 10 binary64)))
(pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
(/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
(+.f64 (/.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))) (/.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
(/.f64 (-.f64 (*.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)))) (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))) (-.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (-.f64 (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (*.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))))
(fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
(+.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
(*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3/2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
(*.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)))
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))
(/.f64 (neg.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64))) (neg.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))))
(/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64)))
(*.f64 (pow.f64 (log.f64 im) #s(literal 3/2 binary64)) (pow.f64 (log.f64 im) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (log.f64 im))
(*.f64 (log.f64 im) (pow.f64 (log.f64 im) #s(literal 2 binary64)))
(pow.f64 (log.f64 im) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (log.f64 im)) #s(literal 3 binary64)))
(*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3/2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))
(*.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))
(pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
(/.f64 (-.f64 (*.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64))) (*.f64 (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))) (-.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))
(/.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (*.f64 (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))) (*.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))))))
(fma.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 1 binary64)) (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 1 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 re re) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(fma.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(*.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 1 binary64)) (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 re re) #s(literal 2 binary64)))
(*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
(pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) #s(literal 2 binary64)))
(*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))
(/.f64 (-.f64 (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))) (+.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
(fma.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 1 binary64)) (*.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(fma.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (*.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(+.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
(*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 1 binary64)))
(*.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
(pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) #s(literal 2 binary64)))
(*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 #s(literal -1/4 binary64) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64))) (*.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 #s(literal 1/10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64))) (*.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 #s(literal 1/10 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 im)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (log.f64 im)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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))))) (log.f64 im)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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))))) (log.f64 im)))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (neg.f64 (log.f64 im)))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (-.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (log.f64 im)))
#s(approx (* -1/2 (* (/ re im) (/ re im))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* (/ re im) (/ re im)) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))
#s(approx (/ re im) (/.f64 re im))
#s(approx re re)
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (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 #s(literal 1/10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (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 #s(literal 1/10 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 im)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (log.f64 im) (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (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 (/ 1 (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (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 (/ 1 (sqrt (+ (* im im) (* re re)))) (pow.f64 im #s(literal -1 binary64)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (pow.f64 im #s(literal -1 binary64))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (fma.f64 (*.f64 re re) (fma.f64 #s(literal 3/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -3 binary64)))) (pow.f64 im #s(literal -1 binary64))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (fma.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -5/16 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 7 binary64))) (*.f64 #s(literal 3/8 binary64) (pow.f64 im #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -3 binary64)))) (pow.f64 im #s(literal -1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 im (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) im))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 im (*.f64 (*.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 im (*.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (fma.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (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 #s(literal 10 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (pow.f64 re #s(literal 4 binary64))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (pow.f64 re #s(literal 4 binary64))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (pow.f64 re #s(literal 4 binary64))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (pow.f64 re #s(literal 4 binary64))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))) (*.f64 re re)))
#s(approx (/ (log im) (* (* re re) (log 10))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))
#s(approx (* (* re re) (log 10)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))
#s(approx (* re re) (*.f64 re re))
#s(approx (pow re 4) (pow.f64 re #s(literal 4 binary64)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 im)))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (log.f64 im)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (-.f64 (*.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)) (pow.f64 (log.f64 im) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 im im)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 im)))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (log.f64 im))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 im)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 im im)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 im) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 im))) #s(literal -1 binary64))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 im)))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (log.f64 im)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -3/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -3/32 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal -3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (fma.f64 #s(literal -3/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -3/32 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal -3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (fma.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))) (*.f64 #s(literal -3/32 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64)))) (*.f64 #s(literal -3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (/.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))))
#s(approx (/ (* (* re re) -1/4) (* (pow im 4) (log 10))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (* (* re re) -1/4) (*.f64 #s(literal -1/4 binary64) (*.f64 re re)))
#s(approx (pow re 6) (pow.f64 re #s(literal 6 binary64)))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (log.f64 im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (fma.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (fma.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (-.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 im)))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (log.f64 im)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (-.f64 (*.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)) (pow.f64 (log.f64 im) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 im im)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 im)))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (log.f64 im))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 im)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 im im)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 im) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 im))) #s(literal -1 binary64))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 im)))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (log.f64 im)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -3/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -3/32 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal -3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (*.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 #s(literal 1/10 binary64)) #s(literal 2 binary64))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 (*.f64 re re) (fma.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (*.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 #s(literal 10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (log.f64 im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (fma.f64 (*.f64 re re) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 im) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (log.f64 im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 im) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 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)) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 re)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (neg.f64 (log.f64 re)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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 binary64) (neg.f64 (log.f64 re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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)))) (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 (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (*.f64 re re)) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 im #s(literal 6 binary64))))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 re)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (neg.f64 (log.f64 re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (+.f64 (neg.f64 (log.f64 re)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (log.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (pow.f64 re #s(literal -1 binary64)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) re))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))) re))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 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)))))) 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 (sqrt (+ (* re re) (* im im)))) (log 10)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 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)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 #s(literal -1/4 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (-.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -3 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal -3 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 im (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))))) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (-.f64 (*.f64 #s(literal -3 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -4 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (*.f64 #s(literal -2 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))))))) (log.f64 #s(literal 1/10 binary64)))) (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 12 binary64)) (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 re #s(literal 12 binary64)) (fma.f64 #s(literal 1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 3/32 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) #s(literal -1 binary64)))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (*.f64 (pow.f64 re #s(literal 12 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 3/32 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal -1 binary64)))) (*.f64 re re)) (*.f64 #s(literal -1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (*.f64 (pow.f64 re #s(literal 12 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) #s(literal -1 binary64)))) (pow.f64 re #s(literal 4 binary64)))) (fma.f64 #s(literal 1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal 3/32 binary64) (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal 3/32 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) #s(literal -1 binary64)) (*.f64 #s(literal 1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 3/32 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal -1 binary64)))) (*.f64 re re)) (*.f64 #s(literal -1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (*.f64 (pow.f64 re #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) #s(literal -1 binary64)))) (pow.f64 re #s(literal 4 binary64)))) (+.f64 (/.f64 #s(literal 3/32 binary64) (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1 binary64)))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (*.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (*.f64 (pow.f64 re #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal -1 binary64)) (*.f64 #s(literal 1/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (*.f64 (pow.f64 re #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (*.f64 (pow.f64 re #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -3 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal -3 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 im (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))))) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (-.f64 (*.f64 #s(literal -3 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -4 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (*.f64 #s(literal -2 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))))))) (log.f64 #s(literal 1/10 binary64)))) (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 12 binary64)) (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 re #s(literal 12 binary64)) (fma.f64 #s(literal 1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 3/32 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) #s(literal -1 binary64)))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (*.f64 (pow.f64 re #s(literal 12 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 3/32 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal -1 binary64)))) (*.f64 re re)) (*.f64 #s(literal -1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (*.f64 (pow.f64 re #s(literal 12 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 3/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) #s(literal -1 binary64)))) (pow.f64 re #s(literal 4 binary64)))) (fma.f64 #s(literal 1/64 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal 3/32 binary64) (*.f64 (pow.f64 im #s(literal 10 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (*.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (*.f64 (pow.f64 re #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal -1 binary64)) (*.f64 #s(literal 1/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (*.f64 (pow.f64 re #s(literal 8 binary64)) (+.f64 (/.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 #s(literal 1/10 binary64)) #s(literal 2 binary64))))) (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (*.f64 #s(literal 1/16 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 im) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 im) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 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)) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log.f64 (/.f64 #s(literal -1 binary64) re)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) re)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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 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 (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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)))) (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 (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 im #s(literal 6 binary64))))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log.f64 (/.f64 #s(literal -1 binary64) re)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (pow.f64 im #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (/.f64 #s(literal -1 binary64) re))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) re)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))) re)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 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)))))) 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 (sqrt (+ (* re re) (* im im)))) (log 10)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) re)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 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)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))) (*.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 #s(literal 1/10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 re) (log.f64 #s(literal 1/10 binary64))) (*.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 #s(literal 1/10 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 re)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) (log.f64 re)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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))))) (log.f64 re)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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))))) (log.f64 re)))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 im im) (log.f64 im)) (*.f64 #s(literal -1/2 binary64) (*.f64 re re))) (*.f64 im im)))
#s(approx im im)
#s(approx (log im) (log.f64 im))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (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 #s(literal 1/10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (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 #s(literal 1/10 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) #s(literal -1 binary64)))) (/.f64 (neg.f64 (log.f64 re)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (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 (/ 1 (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (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 (/ 1 (sqrt (+ (* im im) (* re re)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) (pow.f64 re #s(literal -1 binary64))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (fma.f64 (*.f64 im im) (fma.f64 #s(literal 3/8 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -3 binary64)))) (pow.f64 re #s(literal -1 binary64))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (fma.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (fma.f64 #s(literal -5/16 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 7 binary64))) (*.f64 #s(literal 3/8 binary64) (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -3 binary64)))) (pow.f64 re #s(literal -1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 re (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 re (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 re (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (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 #s(literal 10 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))) (/.f64 (log.f64 re) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) (/.f64 (*.f64 (*.f64 im im) (log.f64 im)) (log.f64 #s(literal 10 binary64)))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) (/.f64 (*.f64 (*.f64 im im) (log.f64 im)) (log.f64 #s(literal 10 binary64)))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (fma.f64 (*.f64 im im) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (*.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (*.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))) (*.f64 im im)))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (*.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))) (*.f64 im im)))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)) (*.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))) (*.f64 im im)))
#s(approx (pow (* (* im im) (log 10)) -1) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))))
#s(approx (* (* im im) (log 10)) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))
#s(approx (* im im) (*.f64 im im))
#s(approx (* (/ (pow im -4) (log 10)) 1/4) (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (pow im -4) (log 10)) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)))
#s(approx (pow im -4) (pow.f64 im #s(literal -4 binary64)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 re re))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 re re)) (/.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (log.f64 #s(literal 1/10 binary64))))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 re re)) (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 re re) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))))) (fma.f64 #s(literal -2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 re re)) (/.f64 (-.f64 (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 re re))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 re re)) (/.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (log.f64 #s(literal 1/10 binary64))))))) (log.f64 #s(literal 1/10 binary64)))) (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))))) (pow.f64 re #s(literal 8 binary64))))))))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 re re)) (/.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (log.f64 #s(literal 1/10 binary64))))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))))))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 im im) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (pow im -2) (pow.f64 im #s(literal -2 binary64)))
#s(approx (* (pow im 4) (log 10)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))
#s(approx (pow im 4) (pow.f64 im #s(literal 4 binary64)))
#s(approx (/ (pow (log im) 3) (pow (log 10) 3)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
#s(approx (/ (log im) (log 10)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (/.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))))) (pow.f64 im #s(literal 8 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))) (pow.f64 im #s(literal 8 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (/.f64 (*.f64 (*.f64 re re) (log.f64 im)) (log.f64 #s(literal 10 binary64)))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))) (pow.f64 im #s(literal 8 binary64))))
#s(approx (/ (pow (log im) 2) (pow (log 10) 2)) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (pow (log im) 2) (pow.f64 (log.f64 im) #s(literal 2 binary64)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 re re))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 re re)) (/.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (log.f64 #s(literal 1/10 binary64))))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 re re)) (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 re re) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))))) (fma.f64 #s(literal -2 binary64) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 re re)) (/.f64 (-.f64 (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 re re))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 re re)) (/.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (log.f64 #s(literal 1/10 binary64))))))) (log.f64 #s(literal 1/10 binary64)))) (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))))) (pow.f64 re #s(literal 8 binary64))))))))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 re re)) (/.f64 (fma.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (log.f64 #s(literal 1/10 binary64))))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 12 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))))))) (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))))) (pow.f64 im #s(literal 12 binary64))))
#s(approx (/ (pow (log im) 3) (pow (log 10) 3)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
#s(approx (pow (log im) 3) (pow.f64 (log.f64 im) #s(literal 3 binary64)))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (/.f64 (pow.f64 re #s(literal 6 binary64)) (log.f64 #s(literal 10 binary64)))))) (pow.f64 im #s(literal 8 binary64))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))) (pow.f64 im #s(literal 8 binary64))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 im re) #s(literal 2 binary64)) (log.f64 #s(literal 1/10 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (/.f64 (*.f64 (*.f64 re re) (log.f64 im)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (/.f64 (fma.f64 (*.f64 im im) (-.f64 (/.f64 (pow.f64 (*.f64 im (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (pow (/ (log im) (log 10)) 2) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))) (/.f64 (*.f64 (*.f64 re re) (log.f64 im)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 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)) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (neg.f64 (log.f64 im)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (neg.f64 (log.f64 im)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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 binary64) (neg.f64 (log.f64 im)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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)))) (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) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (neg.f64 (log.f64 im)))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (neg.f64 (log.f64 im)))))
#s(approx (log im) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1 binary64) (log.f64 im) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))))))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))) im))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))))) im))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))))) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 im (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))))))
#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) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))))))
#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) (pow.f64 (/.f64 re im) #s(literal 2 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 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)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))) (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))))))
#s(approx (/ (log im) (* (* re re) (log 10))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (neg.f64 (log.f64 im))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (neg.f64 (log.f64 im)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (neg.f64 (log.f64 im))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (neg.f64 (log.f64 im))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (neg.f64 (log.f64 im))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (neg.f64 (log.f64 im))))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (neg.f64 (log.f64 im))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (*.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 8 binary64))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 8 binary64))) (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 10 binary64)))))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (*.f64 #s(literal 1/8 binary64) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal -3 binary64)))) (pow.f64 im #s(literal 6 binary64))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))) (*.f64 #s(literal 1/8 binary64) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal -3 binary64)))) (pow.f64 im #s(literal 6 binary64))))
#s(approx (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (/.f64 (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64))))))))) (*.f64 #s(literal 1/8 binary64) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal -3 binary64)))) (pow.f64 im #s(literal 6 binary64))))
#s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal -1 binary64)))) (*.f64 im im)))
#s(approx (/ (pow (log im) 3) (pow (log 10) 3)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (/ (log im) (log 10)) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (-.f64 (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 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (-.f64 (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 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (/ (pow (log im) 2) (pow (log 10) 2)) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (pow (log im) 2) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (neg.f64 (log.f64 im))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (neg.f64 (log.f64 im)))))) (pow.f64 im #s(literal 4 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (neg.f64 (log.f64 im)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (neg.f64 (log.f64 im))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (neg.f64 (log.f64 im))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (neg.f64 (log.f64 im))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (neg.f64 (log.f64 im))))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (neg.f64 (log.f64 im))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (*.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 8 binary64))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 8 binary64))) (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 10 binary64)))))))
#s(approx (/ (pow (log im) 3) (pow (log 10) 3)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (pow (log im) 3) (*.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 (log.f64 im)) #s(literal 3 binary64))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 8 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (*.f64 im im) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))) (*.f64 im im)))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (neg.f64 (log.f64 im)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))))
#s(approx (pow (/ (log im) (log 10)) 2) (/.f64 (pow.f64 (neg.f64 (log.f64 im)) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (neg.f64 (log.f64 im)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (neg.f64 (log.f64 im))) (pow.f64 (*.f64 im (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))) (/.f64 (neg.f64 (log.f64 im)) (log.f64 #s(literal 10 binary64)))))) (*.f64 im im)))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 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)) (log.f64 #s(literal 1/10 binary64)))) (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 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log.f64 (/.f64 #s(literal -1 binary64) im)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (*.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)))) (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) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (*.f64 #s(literal -1 binary64) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))
#s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (-.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))
#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 (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64))))))
#s(approx (/ (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log 1/10)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (pow.f64 im #s(literal 6 binary64)) (log.f64 #s(literal 1/10 binary64)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (log.f64 (/.f64 #s(literal -1 binary64) im)))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (-.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64)))))))
#s(approx (log (/ 1 (sqrt (+ (* im im) (* re re))))) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal -360 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -180 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (*.f64 #s(literal -30 binary64) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 #s(literal -12 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))))))))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (/.f64 #s(literal -1 binary64) im))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))) im)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))))) im)))
#s(approx (/ 1 (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))))) 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) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))))))
#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) (pow.f64 (/.f64 re im) #s(literal 2 binary64))))))))
#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) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (*.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 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)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64)))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (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 #s(literal 10 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))))
#s(approx (* (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (pow re 4)) (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 #s(literal 10 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64)))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))) (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))
#s(approx (/ (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (* re re)) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal -1 binary64)) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))))
#s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64))) (/.f64 (log.f64 #s(literal -1 binary64)) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))
#s(approx (/ (log im) (* (* re re) (log 10))) (/.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 #s(literal 10 binary64)))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)) (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 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (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))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 8 binary64))) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 8 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 10 binary64))) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))))
#s(approx (/ (pow (log im) 3) (pow (log 10) 3)) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
#s(approx (/ (log im) (log 10)) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.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 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 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 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (-.f64 (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 #s(literal 1/10 binary64)) #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 #s(literal 10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (-.f64 (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 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 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 #s(literal 10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))))
#s(approx (/ (pow (log im) 2) (pow (log 10) 2)) (/.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 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (pow (log im) 2) (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)))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))))))
#s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (log.f64 #s(literal 10 binary64))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (/.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)) (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 (log.f64 #s(literal -1 binary64)) (log.f64 #s(literal 10 binary64))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))) (/.f64 (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (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))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 1/10 binary64)))) (*.f64 (/.f64 (log.f64 #s(literal 10 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))))))))))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 8 binary64))) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))))
#s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 3 binary64)))) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64)))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))))) (pow.f64 im #s(literal 8 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 6 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 1/10 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))) (pow.f64 im #s(literal 10 binary64))) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))))))
#s(approx (/ (pow (log im) 3) (pow (log 10) 3)) (pow.f64 (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))
#s(approx (pow (log im) 3) (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 3 binary64)))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (/.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 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 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 #s(literal 10 binary64)) #s(literal 2 binary64)))))
#s(approx (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))) (-.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (pow.f64 (log.f64 #s(literal 10 binary64)) #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 #s(literal 10 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64))))))))
#s(approx (pow (/ (log im) (log 10)) 2) (/.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 #s(literal 10 binary64)) #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))) (*.f64 (log.f64 #s(literal 1/10 binary64)) (log.f64 #s(literal 10 binary64)))))))
#s(approx (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 re re) (log.f64 #s(literal 1/10 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 #s(literal 10 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))) (pow.f64 (*.f64 im (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))))) (*.f64 im im)))

eval146.0ms (2.1%)

Memory
-26.8MiB live, 210.1MiB allocated; 47ms collecting garbage
Compiler

Compiled 98 709 to 4 264 computations (95.7% saved)

prune114.0ms (1.7%)

Memory
17.8MiB live, 120.3MiB allocated; 84ms collecting garbage
Pruning

24 alts after pruning (18 fresh and 6 done)

PrunedKeptTotal
New9009909
Fresh2911
Picked325
Done044
Total90524929
Accuracy
99.9%
Counts
929 → 24
Alt Table
Click to see full alt table
StatusAccuracyProgram
14.9%
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (log.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) (log.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))))) (log.f64 #s(literal 10 binary64)))
50.8%
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
✓50.9%
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 #s(literal 10 binary64)))
✓98.2%
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
✓99.0%
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
✓98.2%
(/.f64 (log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
✓98.2%
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
98.8%
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))) (pow.f64 (log.f64 im) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (log.f64 im)))) (log.f64 #s(literal 1/10 binary64)))
✓98.8%
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))) (log.f64 #s(literal 1/10 binary64)))
49.3%
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (*.f64 re re)) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64))))))) (log.f64 #s(literal 1/10 binary64)))
81.6%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 #s(approx (/ (/ (* re re) (* im im)) (log 10)) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
53.6%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (exp.f64 (*.f64 (log.f64 (log.f64 im)) #s(literal 2 binary64))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
58.9%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
54.4%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3/2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3/2 binary64)))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
60.8%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 #s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
81.6%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (-.f64 (*.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
74.9%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 #s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
97.8%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 #s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
7.0%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -3 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))))))
25.8%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (*.f64 (*.f64 re re) (*.f64 re re)))))
25.8%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (*.f64 (*.f64 re re) (*.f64 re re)))))
17.2%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (-.f64 (*.f64 (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
25.5%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 #s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
25.6%
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (pow.f64 re #s(literal 4 binary64)))))
Compiler

Compiled 5 159 to 1 344 computations (73.9% saved)

regimes102.0ms (1.5%)

Memory
25.6MiB live, 150.7MiB allocated; 31ms collecting garbage
Counts
37 → 1
Calls
Call 1
Inputs
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 #s(literal 10 binary64)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (*.f64 re re)) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64))))))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64))) (log.f64 #s(literal 1/10 binary64)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 #s(approx (- (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (* (/ (pow im -4) (log 10)) 1/4)) (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (pow.f64 re #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 #s(approx (/ (/ (* re re) (* im im)) (log 10)) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 #s(approx (+ (* 1/2 (pow (* (* im im) (log 10)) -1)) (/ (log im) (* (* re re) (log 10)))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (fma.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (*.f64 (*.f64 re re) (*.f64 re re)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 #s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (/ (pow (log im) 3) (pow (log 10) 3))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 im im) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64)) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (*.f64 (*.f64 re re) (*.f64 re re)))))
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))) (pow.f64 (log.f64 im) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (log.f64 im)))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (log.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) (log.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))))) (log.f64 #s(literal 10 binary64)))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 (+.f64 (/.f64 (log.f64 im) (*.f64 (pow.f64 re #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (-.f64 (*.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (pow.f64 (log.f64 im) #s(literal 2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) #s(approx (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))))) (/.f64 (exp.f64 (*.f64 (log.f64 (log.f64 im)) #s(literal 2 binary64))) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64))) (-.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 #s(approx (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (+.f64 (pow.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 #s(approx (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (/.f64 (fma.f64 (/.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (log.f64 #s(literal 10 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64)))) (*.f64 im im))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 #s(approx (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64)))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (/ (+ (* (pow (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) 3) (pow re 6)) (pow (/ (log im) (log 10)) 3)) (+ (pow (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) 2) (- (pow (/ (log im) (log 10)) 2) (* (* (+ (* (/ -1/2 (log 1/10)) (pow im -2)) (/ (* (* re re) -1/4) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10)))))) (*.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -3 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (log.f64 #s(literal 10 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (log.f64 im) (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 2 binary64)))))))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (log.f64 #s(literal 10 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (log.f64 #s(literal 1/10 binary64)) #s(literal 2 binary64)))) (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (*.f64 (*.f64 re re) (log.f64 #s(literal 1/10 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal -1 binary64))))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (/.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) #s(approx (+ (* (+ (* (/ 1/2 (log 10)) (pow im -2)) (/ (* -1/4 (* re re)) (* (pow im 4) (log 10)))) (* re re)) (/ (log im) (log 10))) (*.f64 (-.f64 #s(approx (+ (/ (log im) (* (pow re 4) (log 10))) (/ 1/2 (* (pow (* re im) 2) (log 10)))) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (-.f64 (*.f64 (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal -2 binary64)) (pow.f64 (log.f64 #s(literal 10 binary64)) #s(literal -1 binary64)))) (/.f64 (log.f64 im) (*.f64 (*.f64 re re) (log.f64 #s(literal 10 binary64)))))))) (*.f64 re re))) (*.f64 (/.f64 (pow.f64 im #s(literal -4 binary64)) (log.f64 #s(literal 10 binary64))) #s(literal 1/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (fma.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64)) (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3/2 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3/2 binary64)))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
#s(approx (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (-.f64 (*.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64))) (*.f64 (*.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) #s(literal 3 binary64)) (pow.f64 re #s(literal 6 binary64))) (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 3 binary64)))))) (+.f64 (pow.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 1/10 binary64))) (pow.f64 im #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) (log.f64 #s(literal 10 binary64))))) (*.f64 re re)) (/.f64 (log.f64 im) (log.f64 #s(literal 10 binary64))))))))
Outputs
(/.f64 (log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64))) (log.f64 #s(literal 1/10 binary64)))
Calls

8 calls:

22.0ms
(+.f64 (*.f64 re re) (*.f64 im im))
16.0ms
im
12.0ms
(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
10.0ms
re
10.0ms
(*.f64 im im)
Results
AccuracySegmentsBranch
99.1%1(*.f64 im im)
99.1%1(*.f64 re re)
99.1%1(+.f64 (*.f64 re re) (*.f64 im im))
99.1%1(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
99.1%1(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
99.1%1(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
99.1%1re
99.1%1im
Compiler

Compiled 44 to 38 computations (13.6% saved)

regimes40.0ms (0.6%)

Memory
6.9MiB live, 45.7MiB allocated; 14ms collecting garbage
Counts
10 → 1
Calls
Call 1
Inputs
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 #s(literal 10 binary64)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) #s(approx (- (* -1/2 (* (/ re im) (/ re im))) (log im)) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (log.f64 im) (*.f64 re re)) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -2 binary64))))))) (log.f64 #s(literal 1/10 binary64)))
Outputs
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
Calls

8 calls:

15.0ms
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
5.0ms
re
4.0ms
im
3.0ms
(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
3.0ms
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
Results
AccuracySegmentsBranch
99.1%1(*.f64 im im)
99.1%1(*.f64 re re)
99.1%1(+.f64 (*.f64 re re) (*.f64 im im))
99.1%1(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
99.1%1(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
99.1%1(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
99.1%1re
99.1%1im
Compiler

Compiled 44 to 38 computations (13.6% saved)

regimes39.0ms (0.6%)

Memory
20.6MiB live, 59.9MiB allocated; 18ms collecting garbage
Counts
8 → 1
Calls
Call 1
Inputs
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 #s(literal 10 binary64)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
Outputs
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
Calls

8 calls:

3.0ms
(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
3.0ms
re
3.0ms
im
3.0ms
(*.f64 im im)
3.0ms
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
Results
AccuracySegmentsBranch
99.0%1(*.f64 im im)
99.0%1(*.f64 re re)
99.0%1(+.f64 (*.f64 re re) (*.f64 im im))
99.0%1(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
99.0%1(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
99.0%1(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
99.0%1im
99.0%1re
Compiler

Compiled 44 to 38 computations (13.6% saved)

regimes70.0ms (1%)

Memory
-45.0MiB live, 58.5MiB allocated; 56ms collecting garbage
Counts
7 → 1
Calls
Call 1
Inputs
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 #s(literal 10 binary64)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))) (log.f64 #s(literal 1/10 binary64)))
Outputs
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))) (log.f64 #s(literal 1/10 binary64)))
Calls

8 calls:

40.0ms
(*.f64 im im)
14.0ms
im
3.0ms
re
3.0ms
(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
2.0ms
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
Results
AccuracySegmentsBranch
98.8%1(*.f64 im im)
98.8%1(*.f64 re re)
98.8%1(+.f64 (*.f64 re re) (*.f64 im im))
98.8%1(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
98.8%1(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
98.8%1(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
98.8%1re
98.8%1im
Compiler

Compiled 44 to 38 computations (13.6% saved)

regimes32.0ms (0.5%)

Memory
4.8MiB live, 51.2MiB allocated; 16ms collecting garbage
Counts
6 → 1
Calls
Call 1
Inputs
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (log.f64 #s(literal 10 binary64)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 im im (*.f64 re re)))) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
Outputs
(/.f64 (log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
Calls

8 calls:

15.0ms
(*.f64 re re)
2.0ms
re
2.0ms
im
2.0ms
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
2.0ms
(+.f64 (*.f64 re re) (*.f64 im im))
Results
AccuracySegmentsBranch
98.2%1(*.f64 im im)
98.2%1(*.f64 re re)
98.2%1(+.f64 (*.f64 re re) (*.f64 im im))
98.2%1(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
98.2%1(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
98.2%1(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
98.2%1re
98.2%1im
Compiler

Compiled 44 to 38 computations (13.6% saved)

regimes11.0ms (0.2%)

Memory
30.8MiB live, 30.8MiB allocated; 0ms collecting garbage
Counts
2 → 1
Calls
Call 1
Inputs
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
Outputs
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
Calls

8 calls:

1.0ms
im
1.0ms
(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
1.0ms
re
1.0ms
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
1.0ms
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
Results
AccuracySegmentsBranch
98.2%1(*.f64 im im)
98.2%1(*.f64 re re)
98.2%1(+.f64 (*.f64 re re) (*.f64 im im))
98.2%1(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
98.2%1(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
98.2%1(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
98.2%1re
98.2%1im
Compiler

Compiled 44 to 38 computations (13.6% saved)

regimes24.0ms (0.4%)

Memory
-9.8MiB live, 32.6MiB allocated; 16ms collecting garbage
Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts
1 → 1
Calls
Call 1
Inputs
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
Outputs
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
Calls

8 calls:

16.0ms
(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
1.0ms
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
1.0ms
im
1.0ms
re
1.0ms
(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
Results
AccuracySegmentsBranch
98.2%1(*.f64 im im)
98.2%1(*.f64 re re)
98.2%1(+.f64 (*.f64 re re) (*.f64 im im))
98.2%1(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
98.2%1(log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))))
98.2%1(/.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))) (log.f64 #s(literal 10 binary64)))
98.2%1re
98.2%1im
Compiler

Compiled 44 to 38 computations (13.6% saved)

simplify76.0ms (1.1%)

Memory
14.3MiB live, 60.7MiB allocated; 6ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
04495
17195
212895
319895
426195
543495
6264595
7584895
Stop Event
1×node limit
Calls
Call 1
Inputs
(/.f64 (log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
Outputs
(/.f64 (log.f64 (pow.f64 (hypot.f64 re im) #s(literal -1 binary64))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (neg.f64 (log.f64 (hypot.f64 im re))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (hypot.f64 im re)) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 (log.f64 (hypot.f64 re im)) (log.f64 #s(literal 10 binary64)))
(/.f64 #s(approx (neg (log (sqrt (+ (* im im) (* re re))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (log.f64 im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (neg.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im))) (log.f64 #s(literal 1/10 binary64)))
(/.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)) (neg.f64 (log.f64 #s(literal 1/10 binary64))))
(/.f64 (log.f64 #s(approx (sqrt (+ (* re re) (* im im))) im)) (log.f64 #s(literal 10 binary64)))
(/.f64 (log.f64 #s(approx (sqrt (+ (* im im) (* re re))) im)) (log.f64 #s(literal 10 binary64)))

derivations371.0ms (5.5%)

Memory
-39.2MiB live, 256.5MiB allocated; 132ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 95 to 39 computations (58.9% saved)

preprocess87.0ms (1.3%)

Memory
28.1MiB live, 121.7MiB allocated; 8ms collecting garbage
Remove

(sort re im)

(abs im)

(abs re)

Compiler

Compiled 430 to 314 computations (27% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...